for (1 .. 500) { my $x = rng(); my $y = rng(); ... }