sub Read {
        # parameter übernehmen
        my $rls=shift();
        
        my $readseq = '';
        my $readname = '';
        my $file='C:\Users\Blub\Read\reads.fasta';
        if( tie(my @lines, 'Tie::File',$file) ){
                if( defined $lines[$rls] ) {
                        $readname = $lines[$rls-1];
                        $readname = substr( $readname, 0, 10 );
                        $readname =~ s/\D//g;
                        $readseq = $lines[$rls];
                        $rls += 2;
                }
                else{
                        if( $#lines < $rls ){
                                warn("Line $rls don't exists! There are only ".@lines." Lines!\n");
                        }
                        else{
                                warn("Line $rls is not defined!\n");
                        }
                        $switch = 'false';
                        $readname = 'false';
                }
                untie @lines;
        }
        else{
                warn("Can't tie File $file ($!)\n");
        }
        return( $readname, $readseq );
}