#!/usr/local/bin/perl

$i = 0;

while (<>) {
	chop;
 	print "$i ",$_," \n";
	$i++;
}