open( my $in, "<", q(cc.txt) ) || die $!;

while (<$in>) {
    next if $. <= 8;
    # print;
}

close $in;