open FILE, $_;
		while(<FIL>){
			my @row = split "\t";
			print @row;
...}