Select Code to Download

while (($key, $val) = each(%hash)) {

...
foreach (keys(%hash)) {

}

# if I have
my @arr = keys(%hash);
...

# I would expect to get somehow
@backwardsArr = qw(9 1 2 7 4);