sub ret :lvalue { $_[0] }
sub foo {
  &ret++;
  print "ARGS: <@_>\n";
}

my ($x, $y) = (10, 20);
foo($x, $y);
__END__
ARGS: <11 20>