my %running = ( foo => 1,
                bar => 1,
                baz => 1 );

if ($running{'foo'} == 1) {
   # do stuff
}

# foo has finished:
delete $running('foo'}
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.