use Sort::Key qw(nkeysort);
my @sorted = nkeysort { $_->[1] } @AoA;