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

Missed to turn split() result in to an array reference.