print my $x = ( 'a', 'b', 'c' ); # c print my @x = () = ( 'a', 'b', 'c' ); # nothing print my $x = () = ( 'a', 'b', 'c' ); # 3 print my $x = @a = ( 'a', 'b', 'c' ); # 3 print scalar ( 'a', 'b', 'c' ); # c print +() = ( 'a', 'b', 'c' ); # nothing print scalar ( () = ( 'a', 'b', 'c' ) ); # 3