use Sort::Naturally;
my @sorted = nsort(<DATA>);

__DATA__
K-2-D-10A
K-2-D-10C
K-2-D-10D
K-2-D-10E
K-2-D-10F
K-2-D-10G
...etc