use Sort::Key::Natural qw(natsort);
my @sorted = natsort @data;

##</code><code>##

use Benchmark qw(cmpthese);

use Sort::Naturally qw(nsort);
use Sort::Key::Natural qw(natsort);

my @data = grep !/^\s*$/, <DATA>;
chomp(@data);

cmpthese(-10, { sn => sub { my @s = nsort @data },
                skn => sub { my @s = natsort @data } } );

__DATA__

K-2-D-10A
K-2-D-10C
K-2-D-10D
...

##</code><code>##

$ perl bm.pl
      Rate   sn  skn
sn  45.0/s   -- -79%
skn  216/s 381%   --