push @result,  $_->[0] for @aoa;