Select Code to Download

foreach my $col (1..4){ #read row column by column
    use Switch;
...
        $Sheet->Cells($row,$col)->{'Value'},
        $Sheet->Cells($row,$col)->{'Formula'};
}#// For Column

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