From your description of your problem, you want to pass your sub an array, made up of two arrays joined together?

The first line of your example should work. Try this:

my @array1 = qw (one two three);
my @array2 = qw (four five six);

doprint(@array1,@array2);

sub doprint
{
        for (@_)
        {
                print "$_\n";
        }
}
[download]

Result:

one
two
three
four
five
six
[download]