Select Code to Download

my $sorter=sub { $_[0] <=> $_[1] };

my @sorted=sort { $sorter->($a,$b) } @unsorted;

my $sorter=sub { $_[0]->{$_[1]} <=> $_[0]->{$_[2]} };

my @sorted=sort { $sorter->($hashref,$a,$b) } @unsorted;