in reply to how to read every 10 line from input text file ?
This is the modern way to open a file in perl:
open my $INFILE, '<', 'file.txt' or die "Couldn't open file.txt: $!"; [download]