Select Code to Download

use warnings;
use strict;
...
__END__

{ cat => [1, "cat", 3, 4], dog => [5, 6], pig => [4, 3, 2, 1] }

my @cat=(1,2,3);
my @dog=(5,6);
...
$animals{'cat'}=\@cat;
$animals{'dog'}=\@dog;
$animals{'pig'}=\@pig;