my %hashA;
$hashA{123456} = 1;
$hashA{'Roger and Albert'} = 1;
$hashA{'Roger'} = 1;
$hashA{'456789'} = 1;

print "HASH A\n------\n";
print "$_\n" for keys %hashA;

my %hashB;
$hashB{'Roger'} = 1;
$hashB{123456} = 1;
$hashB{'Roger and Albert'} = 1;
$hashB{456789} = 1;

print "\nHASH B\n------\n";
print "$_\n" for keys %hashB;

##</code><code>##

HASH A
------
456789
123456
Roger and Albert
Roger

HASH B
------
456789
123456
Roger and Albert
Roger