Just make a change to the sort line:

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

The thing is, the <=> operator is for numeric comparisons, and the cmp operator is for string comparisons. See perlop for details on those operators.