Select Code to Download

use Data::Dumper;

...

print "new = " . Dumper (\%new) . "\n";
print "new2 = " . Dumper (\%new2) . "\n";

owncloselady-lm:scratch rbush$ perl hmap_ex1.pl 
new = $VAR1 = {
...
          'bday' => '5/01/1972',
          '5551212' => '5'
        };

use Data::Dumper;

...

print "new = " . Dumper ($new) . "\n";
print "new2 = " . Dumper ($new2) . "\n";

owncloselady-lm:scratch rbush$ perl hmap_ex2.pl
new = $VAR1 = {
...
                   'phone' => '1112300'
                 }
        };