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

But, personally, I prefer:

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

I find it more readable, and it should be more efficient as well, as you don't create another array.