for my $cnt ($start .. $end)
{
     # ...
}