my @list = qw/foo bar baz/;
foreach my $element (@list) {
  *{$element} = sub {
    $state{$element} = 1;
  };
  *{"${element}_"} = sub {
    $state{$element} = 0;
  };
}