Select Code to Download

#!/usr/bin/perl
use strict;
...
        print "@$$p\n\n";
        #^^^this is array
}

push @${$pets{$color}},"rat";
REF(0x815c4d0)
...
REF(0x812ed0c)
ARRAY(0x812ed48)
cat dog