Help for this page
$last[$a] cmp $last[$b] or $first[$a] cmp $last[$b]
my @index = sort { $last[$a] cmp $last[$b] ... John Jon Rich