You're doing an alphabetical sort. Sort numerically using

@sorted = sort { $a <=> $b } @unsorted;
[download]

See the perlop manpage for details.

Cheers, Flo