$r = 'a'..'z' ; # Case 4 -- error #### $r = (@r, @r) ; $v = (%r, %r) ; #### use strict; use warnings; sub print_context { my $c = ( wantarray() ? 'List' : ( defined(wantarray()) ? 'Scalar' : 'Void' ) ); print("$c\n"); } my $r1 = ( print_context(), print_context() ); # Void # Scalar #### my $r2 = sub { ( print_context(), print_context() ) }->(); # Scalar # Scalar #### $r = () = 1..27 ;