@f = <DATA>;
foreach $line (@f) {
  @AB = split("\t", $line);
  @AA = sort { $a->[1] <=> $b->[1] } @AB;
  foreach $temp (@AA) {
    print "@$temp\t", "\n";
  }
}
__DATA__
AA 34
AB 22
AC 12