Help for this page
@{$seq[$i]}{qw(trstart trend period copy consize matches indels score numa numc numg numt entropy)} = split(' ',$line);