foreach (;<$fh>;) {
    print " $. :$_ \n";
    }