You might also consider using $., the current line number of the last filehandle accessed, like so:

while(<DATA>){
    print '.' if $. % 10 == 0;
}
[download]