open( my $in, "<", q(cc.txt) ) || die $!;
$useless_header_line = <$in> for 1..8;

while (<$in>) {
    # print;
}