use 5.010;
my @items = qw/ A1a1 A1a12 A1a2 A10a1 A12a1 /;
say join " ", sort { $a <=> $b } @items;

# prints: A1a1 A1a12 A1a2 A10a1 A12a1
#                ^- :( -^