sub makeArrays
{
    my @arrA = ( 1 .. 6 );
    my @arrB = qw{ fred joe bill pete };
    my @arrC = ( 1, 3, q{abc}, 8 );
    return \@arrA, \@arrB, \@arrC;
}

my ( $refToArrA, $refToArrB, $refToArrC ) = makeArrays();

my @newArrA = @$refToArrA;
my $elemTwoOfArrB = $refToArrB->[2];