while (1) {
    $i = 0;
    my @a;
  again:
    push @a, 1;
    goto again if $i++ < 1000;
}