#! perl -slw
use strict;

my( $scalar, @array, %hash );
print for \( $scalar, @array, %hash );

=comment Prints
SCALAR(0x2a7c20)
ARRAY(0x2a7c80)
HASH(0x2a7d28)
=cut

bless $_, 'fred' for \( $scalar, @array, %hash );

print for \( $scalar, @array, %hash );

=comment Prints
fred=SCALAR(0x2a7c20)
fred=ARRAY(0x2a7c80)
fred=HASH(0x2a7d28)
=cut

my $newref = \$scalar;
print $newref;

=comment Prints
fred=SCALAR(0x2a7c20)
=cut

my $ref2ref = \\$scalar;
print $ref2ref;
print $$ref2ref;

=comment Prints
REF(0x6e148)
fred=SCALAR(0x2a7c20)
=cut