Select Code to Download

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

sarak_mike\n
mike\n
some\n
other\n
data\n