Select Code to Download

#! perl -slw
use strict;
...
1 2 3 4 12345
1 2 3 4 12345
The null list does the right thing in a scalar context

sub grid {
    my( $x, $y ) = @_;
...
        return $rv;
    }
}