- my @cardnumbers = @$cardnumbers if ( ref($cardnumbers) eq 'ARRAY' );
- my @borrowernumbers = @$borrowernumbers
+ my (@cardnumbers, @borrowernumbers);
+ @cardnumbers = @$cardnumbers if ( ref($cardnumbers) eq 'ARRAY' );
+ @borrowernumbers = @$borrowernumbers