Select Code to Download

#!/usr/bin/perl -w
use strict;
...
@$t{map{$$x{$_}||$_}keys %$h) = values %$h;

print Dumper($t);

NBKI44V@B000F1FA4379F /Work/Tools/DataMap
$ ./rehash2.pl
...
          'year' => '1975',
          'last_name' => 'Manara'
        };