Select Code to Download

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

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