...
 { my $j; $j = $_ for (1 ..3) }
 ...