in reply to using split on every element in an array
while(<fname>){ chomp; @data = split(/\\t/); print "[$_]\n"; map{print "[$_]\n"}@data; } [download]