#!/usr/local/bin/perl -w

use strict ;

sub bar {
	print "ARRAY\n" if wantarray ;
	my @a = ( qw( a d g ) ) ;

	return @a ;
}

my ($x) ||= map { bar() } 1 ;

print "$x\n" ;
