#!/usr/bin/env perl

use strict;
use warnings;

my @x = ( 'A', 'B', 'C');
my @y = ( 'C', 'D', 'F');

test(\@x,\@y);

sub test{
    my ($x, $y) = @_;
    print "First element of x is: ", $x->[0], "\n";
    print "All elements of x are: ", join(', ', @{$x}), "\n";
}