Select Code to Download

# AoA sorted by first name
my @names = (
...
    { fn => 'Richard', ln => 'Storm' },
);
my @sorted = sort { $a->{ln} cmp $b->{ln} } @names;

# Sorted by first name
my @names = qw( David|Gets Richard|Storm );
...
             sort { $a->[1] cmp $b->[1] }
             map  { [ $_, split /\|/, $_, 2 ] }
             @names;