open FILE, "gzip -cdfq $data|"; 

    my @lines = <FILE>;

    close FILE;

    open(XROH, ">$xroh") || die $!;
    open(YROH, ">$yroh") || die $!;

    for(my $i=0; $i < $#lines; $i +=2) {
    
    print XROH $lines[$i+1];
    print YROH $lines[$i];
    }
    
    close XROH;
    close YROH;

    open(XWERTE, ">$xwerte") || die $!;
    open(YWERTE, ">$ywerte") || die $!;

    my $werte_x = qx($pickdata -v -t $tmplt_x -p1-31/1- $xroh); 
    my @werte_x = split(/ /, $werte_x);
    print XWERTE @werte_x;

    my $werte_y = qx($pickdata -v -t $tmplt_y -p2-32/1- $yroh);
    my @werte_y = split(/ /, $werte_y);
    print YWERTE @werte_y;

    close XWERTE;
    close YWERTE;     
             
# x-werte einlesen
    open (R_X, "$xwerte") || die $!;
    my @lines_x = <R_X>;
    close R_X;
    chomp(@lines_x);
    foreach(@lines_x) {
        push(@xwerte,split(/\t/,$_));
    }

#y-werte einlesen
    open(R_Y, "$ywerte") || die $!;
    my @lines_y = <R_Y>;
    close R_Y;
    chomp (@lines_y);
    foreach(@lines_y) {
        push(@ywerte,split(/\t/,$_));
    }

# Zusammenfügen der Werte

open(GNUPLOT_FILE, ">$gnu_file") || die $!;
    select (GNUPLOT_FILE);
    for(0..$#xwerte) {
    print $xwerte[$_], "\t",$ywerte[$_],"\n";
    }
close GNUPLOT_FILE;
}