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
...