my $i = 0;
foreach (@file) {
   print "\@file[", $i++, "] = '$_'\n";
}