@array = ();
@array = split (/\n/, $sequence);