$ret{$nucleotides[$j]} = split(/\s+/, $line);
#                        ^                 ^