@sortedEmails = map {$_->[0]}
                sort {$a->[2] cmp $b->[2]}
                map {[$_, split /@/]}
                @emails;