Re^3: RFC: Tutorial: use strict; now what!?

[runrig]

I was going to say the same thing as moritz. In the spirit of your example, here is perhaps what was meant:

my $pet = 'dog';
my %pet_name;
$pet_name{$pet} = 'Rover';

print "$pet_name{dog}\n";

[Xiong]

Please show me the matching problem code?

[runrig]

    our $dog;
    my $pet     = 'dog';
    ${ $pet }   = 'Rover';              # no strict 'refs'
    print "$dog\n";