%hash_of_unique_emails = map { $_ => 1 } @array_of_emails


##</code><code>##


perl -e 'print keys %{ { map { $_ => 1 } <> } }' < test.data