(I came to the conclusion Guido was right about whitespace)

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} };
}
[download]