Select Code to Download

getlists(\@a, \@b);
print join(" ",@a),"\n",join(" ",@b);
...
    @{$_[0]} = @foo;
    @{$_[1]} = @bar;
}

getlists(\@a, \@b);
print join(" ",@a),"\n",join(" ",@b);
...
    @$foo = (1,2,3);
    @$bar = (4,5,6);
}