##
0 20
40 60
100 120
####
hellothere
notimportant
notimportant
hellloagainhellloagai
notimportantnotimport
notimportantnotimport
####
my %seqs
foreach my $sline (@slines){
my($start,$size,$name,$text) = split /\s+/, $sline;
$seqs{$name} = $text;
}