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

for (@array1) {
   my $k = int($_);
   next if !exists($hash{$k});
   print("$hash{$k} = $_\n");
}