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