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:\>