if ( substr( $email, - length($domain) - 1 ) eq '@' . $domain ) {
    delete $data->{$email};
}