Global symbol "a1" requires explicit package name at practice/temp line 20.
Global symbol "a2" requires explicit package name at practice/temp line 28.

##</code><code>##

$VAR1 = [
          1,
          2,
          3
        ];
$VAR1 = [
          4,
          4,
          4
        ];
2
Use of uninitialized value at practice/temp line 25.
Use of uninitialized value at practice/temp line 25.
Use of uninitialized value at practice/temp line 25.
Use of uninitialized value at practice/temp line 34.


##</code><code>##

use strict;
use Data::Dumper;

  my @BankIN = (1,2,3);
  my @BankOUT = (4,4,4);
  use strict 'subs';

  arrayX(\@BankIN, \@BankOUT);

  sub arrayX{

     my($a1, $a2)=@_;
	print Dumper($a1);
	print Dumper($a2);
     my $BankCount = 0;
     my $arg       = shift(@ARGV);

         print "$#$a1\n";

         while ($BankCount <= $#$a1 )

             {
                 if ($a1->[$BankCount] eq $arg)

                 {
                    $arg = $a2->[$BankCount];
                    $BankCount = $#$a1;
                 }
                  $BankCount++;
              }

          print "$arg\n";
  }