foreach my $col (1..4){ #read row column by column
    use Switch;
    switch ($col) { #set values for telnet logon for excel row
        case 1	{$routerip =$Sheet->Cells($row,$col)->{'Value'}}
        case 2	{$routerun =$Sheet->Cells($row,$col)->{'Value'}}
        case 3	{$routerlgnpwd =$Sheet->Cells($row,$col)->{'Value'}}
        case 4  {$routerenpwd = $Sheet->Cells($row,$col)->{'Value'}}
    }#//switch
    # skip empty cells
    next unless defined $Sheet->Cells($row,$col)->{'Value'};

    # print out the contents of a cell
    # printf "%s  ",
        $Sheet->Cells($row,$col)->{'Value'},
        $Sheet->Cells($row,$col)->{'Formula'};
}#// For Column

##</code><code>##

foreach my $row (1..2) {
    $routerip     = $Sheet->Cells($row,1)->{Value};
    $routerun     = $Sheet->Cells($row,2)->{Value};
    $routerlgnpwd = $Sheet->Cells($row,3)->{Value};
    $routerenpwd  = $Sheet->Cells($row,4)->{Value};
}