for my $p9 (keys %is_available) {
  next unless $is_available{$p9};
  ...