use strict 'refs';
my $foo = "bar";

# hard reference
my $ref = \$foo;
print $$ref;        # ok, prints "bar"

# symbolic reference
$ref = "foo";
print $$ref;        # runtime error; ok without strict
{
    no strict 'refs'
    print $$ref;        # works but considered bad
}