Select Code to Download

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)