Select Code to Download

$r = 'a'..'z' ;            # Case 4 -- error

$r = (@r, @r) ;
$v = (%r, %r) ;

use strict;
use warnings;
...
my $r1 = ( print_context(), print_context() );
# Void
# Scalar

my $r2 = sub { ( print_context(), print_context() ) }->();
# Scalar
# Scalar

$r = () = 1..27 ;