#! perl -slw
use strict;

sub grid{ 
	return $_[0] ? 12345 : ();
}

my @array = 1 .. 4;
print "@array";

push @array, grid( 1 );
print "@array";

push @array, grid( 0 );
print "@array";

my $item = grid( 0 );

print 'The null list does the right thing in a scalar context'
	if not defined $item;

__END__
[ 7:10:52.28] P:\test>junk
1 2 3 4
1 2 3 4 12345
1 2 3 4 12345
The null list does the right thing in a scalar context
##</code><code>##

sub grid {
    my( $x, $y ) = @_;
    if( outOfRange( $x) 
    or outOfRange( $y ) {
        return;
    else {
        # determine return value...
        return $rv;
    }
}