sub Read {
	my $readseq = '';
	my $readname = '';
	tie my @lines, 'Tie::File','C:\Users\Blub\Read\reads.fasta' ;
		if( defined $lines[$rls] ) { # false und das stimmt nicht!!
			$readname = $lines[$rls-1];
			$readname = substr( $readname, 0, 10 );
			$readname =~ s/\D//g;
			$readseq = $lines[$rls];
			$rls += 2;
		}
		else {
			$switch = 'false';
			$readname = 'false';
		}
	untie @lines;
	return( $readname, $readseq );
}