#!/usr/bin/perl
use strict;
use warnings;

my $datasource ="C:\\somelargetextfile.txt";
open DATASOURCE, "$datasource" or die "Can't open $datasource: $!";
while (my $line = <DATASOURCE>){
   print "$. - $line";
}
close (DATASOURCE);