Help for this page
my %hash = qw/John 1 Bob 1 xavier 1 alice 1/; ... map { tr/a-zA-Z/A-Za-z/; $_ } keys %hash; print "@keys\n";
alice xavier Bob John