my @test1 = $countline;
print $test1[0];