sub plain    { print $_[0]; }
sub proto($) { print $_[0]; }

my @a = 4;
plain(@a);  # 4
proto(@a);  # 1