my @nonzero;

for (keys %is_available) {
    push @nonzero, $_ if $is_available{$_};
}

for my $p9 ( @nonzero ) {
    print $p9;
}