open(FH,"upload") or die "Check The File";
while(<FH>)
{
	chomp $_;
	my @temp = split(/\t/,$_);
	my $gene=$temp[0];
	my $geneid=$temp[1];
	my $string=$temp[2];
	mkdir "$gene-$geneid" or die "Could not make the directory";
	print "$gene-$geneid\n";
}