First: you know what you can use $ENV{myvariable}to access environment variables, right? And what you do not need to indicate $_when using m//, s///and tr///?
, perl, , , perl-.
perl -we 'my ($var1, $var2, $var3) = @ARGV;' "$MYFOO" "$BAR" "$baz"
, .
, -p -n, .
perl -pwe 'BEGIN { my $var1 = shift; my $var2 = shift } #code goes here'
"$MYFOO" "$BAR" file1 file2
shift BEGIN @ARGV, while -p -n.