Select Code to Download

$number = 3;
@array1 = ("mary");
@array2 = ("had");

sub test
{
...
my @b = ("London","Bridge","is");
# call sub
test(3,\@a,\@b);