#New ForEach Loop to iterate through Router Hash Table 

foreach $router (sort (keys (%MSC_Routers))) {

$ip = $MSC_Routers{$router};

print ("$router has IP: of $ip\n\n");

#Print out which one I am connecting to
print ("\t\t I am telnetting to: $ip \n\n");
sleep 3;

$mode = "return";
#Open Telnet Session
$t = new Net::Telnet (Timeout => 10,
                      input_log => "input_log",
                      dump_log => "dump_log",
                      prompt => '/#$/',
                      Errmode => $mode
                      );


   $t->open("$ip");