my $line;
while (<SEQUENZ>) {
   $line = $_;