That was the correct resolution.
Running the script as "perl test.pl one two three"
returned the correct values.