#!/usr/bin/perl -w

open FH, "</really/huge/file" or die "Eeek, $!\n";

foreach (<FH>) {
   print "$. - $_";
}