#!/usr/bin/perl -w

open (FILE , "<file.txt");
chomp (@file = <FILE>);
close FILE;

$str = 1;

while (@file)
{
$f = shift @file;
print "$str $f\n";
$str++;
}