@array = ( "one","two" );

foo( @array );
&foo( @array );

sub foo (\@@) {
        print "arg one is a ", ref $_[0] || "non-ref with value $_[0]";
}
__END__
output:
arg one is a ARRAY
arg one is a non-ref with value one