...
{ # Extra scope to keep $menuPopped contained to just this region.
  my $menuPopped = 0;
  sub thatReadsFlag
  {
    ...
    if ($menuPopped) {}
    ...
  }
  sub thatWritesFlag
  {
    ...
    $menuPopped = shift;
    ...
  }
}
...