my %is_available = ( zero => 0, one => 1, two => 2 );

for my $p9 ( grep { $is_available{$_} } keys %is_available ) {
    print $p9;
}