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

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