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 };