...
 for my $element (@array2) {
   my ($num, $txt) = split /#/, $element;  # extract parts
   print "$txt = ". int($num) ."\n"
      if grep int($num) eq int($_), @array1  # use text comparison and print txt part
 }
 ...