open( OUT, ">file.name" ) or die "can't write to file.name:$!";

print OUT "Line $_ : [$line[$_]]\n"  for (0..$#line);

close OUT;