while(<fname>){
              chomp;
              @data = split(/\\t/);
              print "[$_]\n";
              map{print "[$_]\n"}@data;
            }