change it to:

my %saw;                              # note the hash
@emails = grep(!$saw{$_}++, @emails); # note the curlies
[download]