use Sort::Key::Radix qw(isort); 
my @data = map int, qw(2 53 23456 75434532 233 45654 665446 33 234 5 6665 3 2 23 43
                       62553 27263 2 33 75434532 987762 34455 22 3345 24 567 54 43 12 23);
my @sorted = isort @data;
print "@sorted";