use 5.010;

  use strict;
  use warnings;
  my($foo, $bar) = (1, 2);

  sub baz {
      say shift;
      $bar = 3;
      say shift;
  }

  baz $foo, $bar;

  __END__
  1
  3