my $rsSomeValue = \ do { my $val = 42 }; # scalar ref my $raCats = [ qw{ Tiddles Desmo Felix } ] # array ref my $rhAges = { John => 23, Bill => 35 }; # hash ref my $rcDoIt = sub { return $_[ 0 ] * 3 }; # code ref my $rxPat = qr{abc}; # regexp ref my $roObj = Some::Pkg->new() # object ref