@names = map { $_->[0] }
             sort { $a->[2] cmp $b->[2] } # index 2 for last name, 1 for first
                 map { [$_, split(/\|/, $_)] } @names;