sub is_baz {
    my $i = shift; 
    return $BAZ{$i};
}