Select Code to Download

@arr = ("jack", 80, "martin", 3, "allan", 'george');

...
@sort = sort { $a cmp $b } @arr;

print "@sort \n";

@sort = sort { $a <=> $b } @arr ;