Select Code to Download

while (my ($p9, $is_available) = each %is_available) {
    next if !$is_available;
    # do something with each available $p9
}