if (! exists $MailList->{$addr}) {
    # ok, we haven't seen this Email address yet
    $MailList->{$addr} = $name;

    # and do other things
    }