Select Code to Download

print scalar(keys %auto_picks), "\n";
while (my $line = <$sub_fh>) {
...
    }
}
print scalar(keys %auto_picks), "\n";