$ 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
$