perl文字列の数値でソート

使用
Sort::Naturallyモジュールのソート
使用方法:

 use Sort::Naturally;

 @them = nsort(qw(
   foo12a foo12z foo13a foo 14 9x foo12 fooa foolio Foolio Foo12a
  ));
  print join(' ', @them), "
";

Prints:

  9x 14 foo fooa foolio Foolio foo12 foo12a Foo12a foo12z foo13a

(Or "foo12a"+ "Foo12a"and "foolio"+ "Foolio"and might be switched, depending on your locale.)