@molecules = grep { $_ ne "\n" } @molecules;