Quotekabel@linux:~> perl package A; sub new { local $" = ", "; print "@_\n"; } package main; A->new (1 .. 3); A::new (1 .. 3); A, 1, 2, 3 1, 2, 3 kabel@linux:~>