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