Select Code to Download

sub getmatrix {
  my $what = shift;
...
  }
  return @matrix;
}

sub checkmatrix {
  my $rowlength = @$_[0];
...
    $rowlength == @$_ or die "Number of columns was not consistant!\n"
+;
  }
}

sub getdimen {
  my $rows = @_;      # get number of rows
  my $cols = @$_[0];  # get number of elems in first row
  return ($rows,$columns);
}

sub getproduct {
  my ($aref, $bref) = @_;
...
  }
  return @product;
}