#! /usr/bin/perl -w

open (MYFILE, "file.txt");
open (OUTFILE, "> outfile_array.txt");
	
@array = (<MYFILE>);
chomp @array;

for ($i = 0; $i <= $#array; $i++)
{
	print OUTFILE "$array[$i]\n";
}

close (MYFILE);
close (OUTFILE);
