Select Code to Download

chomp( my @list = <$fh> );

my @ids = map s/ /_/gr, 
          grep defined,
          @base;

for (@$list) {
    if (ref) {
...
        $_ = ...;
    }
}