use subs qw( values );

sub values(\%) {
   my $h = shift;
   return keys(%$h) if !wantarray();
   my @keys = sort keys(%$h);
   return @{$h}{@keys};
}

##</code><code>##

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