if ( length($email)-length($domain)>=0 && rindex($email,"\@$domain")==length($email)-length($domain) )
{ delete($data->{$email}); }