my @array = &xsubroutine();
my @mainarray1 = shift @array;
my @mainarray2 = shift @array;

sub xsubroutine{
my (@array1, @array2)

yada;
yada;

psuh (@array1, $_);

yada;
yada;

push(@array2, $_);

}