@sorted = map{ 
    $_->[1] 
} sort{ 
   $a->[0] <=> $b->[0] 
} map{ 
    [ substr( $_, 1 ), $_ ] 
} qw[ A473 B659 C123 D222 E001 ];;

print Dumper @sorted;;
VAR1 = 'E001'; $VAR2 = 'C123'; $VAR3 = 'D222'; $VAR4 = 'A473'; $VAR5 = 'B659';