my $state= { var1 => "value1", var2 => "value2"};
sub f1
  { my( $other_param, $state)= @_;
    $state->{var2}= "new_value2";
    # ...
  }
...