# AoA sorted by first name
my @names = (
    [ qw( David   Gets  ) ],
    [ qw( Richard Storm ) ],
);
my @sorted = sort { $a->[0] cmp $b->[0] } @names;

# AoH sorted by last name
my @names = (
    { fn => 'David',   ln => 'Gets' },
    { fn => 'Richard', ln => 'Storm' },
);
my @sorted = sort { $a->{ln} cmp $b->{ln} } @names;