Select Code to Download

my @cat=(1,2,3);
my @dog=(5,6);
...
for(\@cat,\@dog,\@pig){
    stuff($_); # stuff() gets an arrayref and will need to dereference
+ it
}