Select Code to Download

use subs qw( values );

...
   my @keys = sort keys(%$h);
   return @{$h}{@keys};
}

my %h = map { $_ => $_ } 'a'..'z';
print(values(%h), "\n");  # abcdefghijklmnopqrstuvwxyz