Select Code to Download

my %hash = map { my($k,$v)=split/#/; $k=int($k); ($k,$v) } @array2;

...
   next if !exists($hash{$k});
   print("$hash{$k} = $_\n");
}

my %hash;
for (@array2) {
...
      print("$v = $_\n");
   }
}