Select Code to Download

for (1 .. $#temp) {
   print DATAFILEOUT $temp[$_];
}

my $temp_length = @temp;
for my $current_array_index ( 1 .. ($temp_length - 1) ){
  print DATAFILEOUT $temp[$current_array_index];
}

print DATAFILEOUT @temp[1..$#temp];