while( my $line = <SEQUENZ> ) {