sub int_monitor (\$;$)  {
  my $var=shift;
  print "$var\n";
  $$var=shift if @_
};

int_monitor my $foo => 14;
print "$foo\n";