print  map{ 
    s/\A (.*)(.) \z/$2$1/x; 
    $_ 
} sort map{ 
    s/\A (.)(.*) \z/$2$1/x; 
    $_ 
} (@temp = qw[ A1 A11 A111 A2 A5 A50 ]);

A111 A11 A1 A2 A50 A5

##</code><code>##

perl> print map{ 
    substr $_, 2 
} sort map{ 
    pack( 'n', $_ =~ m[(\d+)] ) . $_  
} (@temp = qw[ A1 A11 A111 A2 A5 A50 ]);

A1 A2 A5 A11 A50 A111