sub is_baz {
    my $i = shift; 
    return ( exists $BAZ{$i} ) ? 1 : 0;
}