foreach $key (keys %hash){
    print $key."\n";
}