my @serials = split(" ", $form->{"serialnumber_$i"});
if (scalar @serials != $form->{"qty_$i"}) {
push @errors, $::locale->text("Cannot transfer #1 qty with #2 serial number(s)", $form->{"qty_$i"}, scalar @serials);
last;
}
foreach my $serial (@serials) {
my @serials = split(" ", $form->{"serialnumber_$i"});
if (scalar @serials != $form->{"qty_$i"}) {
push @errors, $::locale->text("Cannot transfer #1 qty with #2 serial number(s)", $form->{"qty_$i"}, scalar @serials);
last;
}
foreach my $serial (@serials) {