Select Code to Download

my %h = 
map{ reverse /(\d+).*#(.+)/ } grep "@array1", @array2;
print Dumper \%h;

Output:
$VAR1 = {
...
          'ghi' => '78'
        };