Select Code to Download

#!/usr/bin/perl -w

...
$hash{one}->{key2} = 'value2';

print Dumper(\%hash);

$hash{one}->{key1} = 'value1';
$hash{one}{key1} = 'value1';