http://qs321.pair.com?node_id=436975


in reply to Re: Cruel references
in thread Cruel references

of course!!
Thanks a lot!
This is right way: 
$pets{$color}=[];
push @{$pets{$color}},"cat";

[download]

In Section Seekers of Perl Wisdom