while ($boxEnd >= my $boxBegining, $boxBegining++) {