#! 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";

__END__
[20:55:29.43] P:\test>junk
1 2 3 4
1 2 3 4 12345
1 2 3 4 12345