my @saw; 
@emails = grep(!$saw[$_]++, @emails);