my $j = 0;
for (my $i = 0; $i < @molecules; $i ++) {
    $molecules[$j++] = $molecules[$i] unless $molecules[$i] eq "\n";
}
splice @molecules, $j;