Select Code to Download

sub mmMxN {
    our( @M, @N );
...
    }
    return \@C;
}

sub mmMxN {
    my $self = shift;
...
    }
    return $self->{R};
}

sub mmMxN {
    our ( @M, @N );
...
    }
    $self->{R} = \@R;
}