Сначала соберите ключи по соответствующему значению. Затем получите значения (например, используя хэш-срез).
my @keys = sort { $h{$a} <=> $h{$b} } keys(%h);
my @vals = @h{@keys};
Или если у вас есть хеш-ссылка.
my @keys = sort { $h->{$a} <=> $h->{$b} } keys(%$h);
my @vals = @{$h}{@keys};