Select Code to Download

sub ($$) { $ref->{$_[0]} <=> $ref->{$_[1]} }

use strict;
no warnings; # So many that they hide the output.
...
__END__
$a: 3 1 2
@_: 1 2 3