Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
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;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment