for my $col (50..99) 
{
    for my $row (150..199) 
    {
        #same code here
    }
}