mysub { 
    my @array = @_;    # Copying again. Not efficient.
    print $array[0], "\n";
}
my @a = (1 .. 10); 

mysub(@a);    # Send the array as @_