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};
}