my @used = grep( %is_available{ $_ } ) keys( %is_available );

 for my $p9 ( @used ) {
      # use $is_available{ $p9 };