use strict; use warnings; sub sort_aux { our $self; $a <=> $b; } sub hash_ref_keys_by_value { local our $self = shift; my @keys = sort by_value keys %{ $self->{hash_ref} }; }