my $r1 = ( print_context(), print_context() );
  # Void
  # Scalar

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

##</code><code>##

$r = () = 1..27 ;