Select Code to Download

>perl -le "print '123' <=> 'abc'"
1

>perl -le "print '123' cmp 'abc'"
-1

my $orderby   = 'age';
my $numerical = 1;
...
}

@sorted = sort { &$sorter } keys %hash;