for (my $i = 0; $i < 2000; $i++)
{
  last if ($i & 1024);
  ...
}