#! perl -slw
use strict;

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

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

if( my $item = grid( 1 ) ) {
	push @array, $item;
}

if( my $item = grid( 1 ) ) {
	push @array, $item;
}

print "@array";

__END__
[21:01:53.53] P:\test>junk
1 2 3 4
1 2 3 4 12345 12345