my %hash = qw/John 1 Bob 1 xavier 1 alice 1/;

my @keys = map { tr/a-zA-Z/A-Za-z/; $_ }
           sort
           map { tr/a-zA-Z/A-Za-z/; $_ } keys %hash;

print "@keys\n";

##</code><code>##

alice xavier Bob John