for (@fieldname){
    chomp; # see perldoc -f chomp
    print "$_\t"; 
}