The reason for the warnings is that the split returns chunks like 9.gb.txt, which are not numeric. Try to just extract the number:

@sorted = map{$_->[0]} sort{$a->[1] <=> $b->[1]} map{ [$_, /(\d+)/g] }
+ @unsorted;
[download]