in reply to Re: sorting numerically and alphabetically
in thread sorting numerically and alphabetically

or Sort::Key::Natural that is much faster... 
use Sort::Key::Natural qw(natsort);

@sorted = natsort qw(foo12a foo12z foo13a foo 14 9x foo12 fooa foolio 
+Foolio Foo12a);

[download]

In Section Seekers of Perl Wisdom