sub sendmail {
    my ($REPORT,$CONFIG,$RESULT) = @_;
    my $T = gettime();
    my $MAIL_TO = $CONFIG{MAIL_TO}[0];
    delete $CONFIG{MAIL_TO}[0];
    my @MAIL_CC = $CONFIG{MAIL_TO};

##</code><code>##

    my $MAIL_TO = shift @{ $CONFIG{ MAIL_TO } };

##</code><code>##

    my $MAIL_CC = $CONFIG{ MAIL_TO };

##</code><code>##

    if ($RESULT == 1){
...
    }else{
        $CONFIG{MAIL_DATA} .= "ERROR: TACACS SERVICE VERIFICATION FAILED!\nReason:";
        if ($RESULT == 1){ $CONFIG{MAIL_DATA} .= "HUBSITE: $CONFIG{HUBSITE} is unreachable\n";}
        if ($RESULT == 2){ $CONFIG{MAIL_DATA} .= "Provided Username/password combination failed Auth
+entication\n";}
        if ($RESULT == 2){ $CONFIG{MAIL_DATA} .= "Provided Username/password combination passed Auth
+entication, but tacacs profile doesn't allow privileged mode\n";}