C:\>perl -E "sub doit {for my $passed(@_) { say 'passed is: '. $passed;}}my @input=@ARGV; for my $input (@input) {say $input;} doit(@input);" "one" "two" "three"
one
two
three
passed is: one
passed is: two
passed is: three

C:\>

##</code><code>##

C:\>perl -E "sub doit {for my $passed(@_) { say 'passed is: '. $passed;}} my @input = @ARGV; for my $input (@input) {say $input;} doit(@input);" "one two three"  # NOTE QUOTING VARIANCE!
one two three
passed is: one two three

C:\>