@sortdata = sort { $a cmp $b } @data;