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