%hash1 = ( a, b, c, d, e, f );
%hash2 = ( a, J, e, K );

use Data::Dumper;
print Dumper ( \%hash1 );
print Dumper ( \%hash2 );

# WHAT TO DO HERE TO GET UPDATED VALUES ??

print "=========AFTER===========\n";
print Dumper ( \%hash1 );
#print Dumper ( \%hash2 );