Select Code to Download

my @value = values %hash;

my @key = keys %hash;

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

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