#!/usr/bin/perl -w

use strict;

sub sub_myarray_test;

sub sub_myarray_test
{
    my @my_array = ("one", "two", "three");
    my @my_array2 = ("four", "five", "six");

    print "\n\tIn subroutine \@my_array = @my_array\n";
    print "\tIn subroutine \@my_array2 = @my_array2\n\n";

    return \(@my_array, @my_array2);
}

my ($test_array, $test_array2) = sub_myarray_test;

print "test_array:  @$test_array " . #{${@{$test_array}}} . "\n";
print "test_array2: @$test_array2\n";

exit;