Re^4: How to create loop in perl dynamically

[johngg]

By default the loop variable is held in $_ but you can assign to a variable if you wish. It is not a good idea to alter loop variables inside the loop, that leads to all sorts of grief.

$ perl -Mstrict -Mwarnings -E '
> foreach my $outer ( 1 .. 3 )
> {
>     foreach my $inner ( 7 .. 9 )
>     {
>         say qq{$outer x $inner = @{ [ $outer * $inner ] }};
>     }
> }'
1 x 7 = 7
1 x 8 = 8
1 x 9 = 9
2 x 7 = 14
2 x 8 = 16
2 x 9 = 18
3 x 7 = 21
3 x 8 = 24
3 x 9 = 27
$

I hope this is helpful.