foreach (keys %emails)
{
 delete $emails{$_} if /xung03\@aol.com/;
}