mysub {
    my ($arrayref) = @_;
    print $arrayref->[0], "\n";
}
my @a = (1 .. 10); 

mysub( \@a );