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