sub parsedata {
    my $run = shift;

    my @lines;

    my $t0 = [ gettimeofday ];

    # echtes zeilenweise lesen
    push @lines, $_ while <FH>;

    my $t1 = [ gettimeofday ];

    print "$run Run: ", tv_interval( $t0, $t1  ), "\n";

}