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


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

print "@sort \n";