my $i = 1;
inc($i);
sub inc {
  my $i = shift;  # declare and read $i from @_
  $i++;
}