my $boxBegining; 
while ($boxEnd >= $boxBegining) { 
    $boxBegining++; 
    # ... and the rest of your loop ...  
}