Select any one of the sorting method from the bellowed list and do sorting

@sorted = sort { $a <=> $b } @not_sorted # numerical sort  
@sorted = sort { $a cmp $b } @not_sorted # ASCII-betical sort
@sorted = sort { lc($a) cmp lc($b) } @not_sorted # alphabetical sort
[download]