use subs qw( values );

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