my @value = values %hash;

##</code><code>##

my @key = keys %hash;

##</code><code>##

my @value = sort values %hash;
my @key = sort keys %hash;
foreach (sort keys %hash) {
    print "$_ => $hash{$_}\n";
}

##</code><code>##

while (my $key = each %hash) {
    print "$key\n";
}
while (my ($key,$value) = each %hash) {
    print "$key => $value\n";
}