if( $counts{ C } > 50 ) {
        printf "range: %d .. %d A:%d C:%d G:%d T:%d\n", 
            $offset, $offset+199, @counts{ qw[ A C G T ] };
    }