@sorted = sort { $a cmp $b } @unsorted;