sub mysub { 
    my @array = @$_[0];    # Makes a copy. Not efficient.
    print $array[0], "\n";
}

my @a = (1 .. 10);
 
mysub(\@a);    # \@a is a reference to the array @a.