while (<>) {
	chomp;
	my @s = split /\t/,$_;
	push @input ,\@s;
}