RosettaCodeData/Task/Sort-an-array-of-composite-structures/Perl/sort-an-array-of-composite-structures-2.pl

@people = (['joe', 120], ['foo', 31], ['bar', 51]);
@people = sort { $a->[1] <=> $b->[1] } @people;