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

##</code><code>##

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

##</code><code>##

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