for my $p9 (keys %is_available) {

##</code><code>##

 for my $p9 (keys %is_available) {
  if ($is_available{$p9}) {