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

or the more readable

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

What in the world would make you think that second example is more readable than the first?

Not that I would go to all that trouble anyway...

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

Now, that's readable! ;-)

-sauoq
"My two cents aren't worth a dime.";