Select Code to Download

    while (my ($key, $val) = each %hash) {
        next if defined $val;
...
        }
        $heap->insert($key);
    }