my %flag = (
    name_of_the_flag => 0,
    another_flag     => 1,
    third_one        => 0,
);

# Later...
print "another_flag is set\n" if $flag{another_flag};

##</code><code>##

my $flag = 0;

print "\$flag is set\n" if $flag;