http://www.reddit.com/r/perl/comments/18z4dy/help_with_array_of_arrays/

gistfile1.pl

use warnings;
use strict;

multiplyArray( [1,2,3], [4,5,6]);

sub multiplyArray{
    #my $a = shift;
    #my $b = shift;
    my ($a, $b) = @_;

    my @p;

    foreach my $a_i (@$a){
        my @row;
        foreach my $b_j (@$b){
            push @row, $a_i * $b_j;
        }
        push @p, \@row;
    }

    print "Reference to array product: ", \@p, "\n";
    print "Dereferenced array product: \n";
    print "@$_\n" foreach @p;
}