esobchenko/gist:881974

## gistfile1.pl
#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;

sub foo {
        wantarray ? () : undef;
}

my @a = map { foo() } qw/1 2 3/;
print Dumper( \@a ); # will dump: $VAR1 = [];
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use Data::Dumper;

	sub foo {
	wantarray ? () : undef;
	}

	my @a = map { foo() } qw/1 2 3/;
	print Dumper( \@a ); # will dump: $VAR1 = [];