for my $key (sort keys %hash) {
    print $key,"\n";
}