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