use warnings;
use strict;

chomp(my @data_array=<DATA>);

print join $/ => map{$_->[0]}
      sort{$a->[1] <=> $b->[1]}
      map{[$_,(split/\s+/,$_,2)[1]]} @data_array;

__DATA__
AA 34
AB 22
AC 12