$ perl -le 'sub foo(\@) { ref(shift) ? "ref" : "not a ref" }; @arr=(1..3); print foo(@arr)'
ref

$ perl -le 'sub foo(\@) { ref(shift) ? "ref" : "not a ref" }; @arr=(1..3); print &foo(@arr)'
not a ref