You can also read the file into an array, then any navigation on the file is easy using array index:

my @file = <AFILE>;    # reading all file to an array
for (@file) {
  ...
}
[download]

Hotshot