my @sorted = sort {($a->[1] <=>$b->[1]) || ($a->[2] <=> $b->[2])}@array;
    my $coverage = 0;
    for (@sorted){
        $coverage += $_->[2] - $_->[1] +1;
    }
    printf "cover = %.1f%% \n", $coverage/$length *100;