foreach my $cmd_telnet (@telnet_drop) {
     $telnet->print("$cmd_telnet");
     if ($telnet->waitfor('/0 Successful/')){
        print "$cmd_telnet \t Successful\n";
     }
     else {
        print "$cmd_telnet \t NOT OK\n"
     }
}