$ perl -Mstrict -wle '
> my @arr;
> foreach my $iter ( 1 .. 3 )
> {
>     my @rec = map { $_ * $iter } ( 1, 2, 3 );
>     push @arr, \ @rec;
> }
> print qq{$_: @$_} for @arr;'
ARRAY(0x22aa8): 1 2 3
ARRAY(0x22b14): 2 4 6
ARRAY(0x22b80): 3 6 9
$