Select Code to Download

#!/usr/bin/perl -l

...
print Dumper ndim @$_ for [1,3], [2,2], [2,3], [3,3];

__END__

sub _ndim {
    my ($n,$m) = @_;
...
}

sub ndim { [_ndim @_] }