my $aref = [1..42]; my $href = { foo => 1, bar => 2 }; my $cref = do { my @x=1..42; sub () { @x } }; my $sref = do { my $x=42; \$x }; #### my $aref = \@ <== 1..42; my $href = \% <== foo => 1, bar => 2; my $cref = \& <== 1..42; my $sref = \$ <== 42;