Help for this page
>perl -le "print '123' <=> 'abc'" 1 >perl -le "print '123' cmp 'abc'" -1
my $orderby = 'age'; my $numerical = 1; ... } @sorted = sort { &$sorter } keys %hash;