my $SOME_GLOBAL_VARIABLE = 0;
  some_sub_with_side_effects();

  ...
  sub some_sub_with_side_effects {
    $SOME_GLOBAL_VARIABLE = 1;
  }