#!/usr/bin/perl
$logfile="log.txt";
$newlogfile="newlog.txt";
open LOG, $logfile or die "Can't find $logfile";
@myLog=<LOG>;
close LOG;
open NEWLOG, ">$newlogfile";
for ($i=0; $i<@myLog; $i++)
{
	print "$i $myLog[$i]";
	print NEWLOG "$i $myLog[$i]";
}
