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

##</code><code>##

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

##</code><code>##

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