Assuming an array @fieldname,

print join("\t",@fieldname);
[download]

Update: I should probably add that your C-style for loop is very ugly in Perl. Have a look at the functions for, foreach, while in perldoc. :)

--
Allolex