use strict;
use warnings;
print "1: @ARGV\n";
foo(@ARGV);
print "3: @ARGV\n";
sub foo {
  print "2a: @_\n";
  $_[0] = "foobar";
  print "2b: @_\n";
}