my $SOME_GLOBAL_VARIABLE = some_sub_without_side_effects();

  ...
  sub some_sub_without_side_effects {
    return 1;
  }