local *ARGV = [$path];

##</code><code>##

perl -wlE 'sub say_argv { say @ARGV, $ARGV; }; $ARGV=9; say_argv; do { local *ARGV = ["foo"]; say_argv; }; say_argv' 1 2 3
1239
foo9
1239