for my $m (reverse 0 .. $#molecules) {
    if ($molecules[$m] eq "\n"){
        splice (@molecules, $m, 1);
    }
}