my @old=("99B","99","99A","100A","100","101","88");
print sort{ $^W=0; $a <=> $b or $a cmp $b } @old;
88 99 99A 99B 100 100A 101