http://www.perlmonks.org?node_id=952550


in reply to Re^2: RFC: Tutorial: use strict; now what!?
in thread RFC: Tutorial: use strict; now what!?

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

[download]

Replies are listed 'Best First'.
Re^4: RFC: Tutorial: use strict; now what!?
by Xiong (Hermit) on Feb 08, 2012 at 21:26 UTC

    Please show me the matching problem code?

    I'm not the guy you kill, I'm the guy you buy. —Michael Clayton
[reply]
[d/l]
          our $dog;
    my $pet     = 'dog';
    ${ $pet }   = 'Rover';              # no strict 'refs'
    print "$dog\n";

      [download]
[reply]
[d/l]

In Section Meditations