my %hash = map ( $_ => 1 ), @array; ##

##

(my %hash = map( $_, 1 )), @array;

##

##

my %hash = map +( $_ => 1 ), @array;

##

##

print +( $x ? $y : $z ), "\n";

##

##

(print( $x ? $y : $z )), "\n";

##

##

my @foo = map { 1, 2 } 3, 4;

##

##

my @foo = map { ; 1, 2 } 3, 4;
print "@foo\n";
__END__
1 2 1 2

##

##

my @foo = map +{ 1, 2 }, 3, 4;

##

##

my @foo = map { 1, 2 }, 3, 4;
print "@foo\n";
__END__
HASH(0x814cbb8) HASH(0x814cd5c)