Hi Monks,
I am bit stuck with a process, actually I have a tab separated file with 3 columns(shown below), what I am trying to do is read this file and the sending column 3 values to a database on the internet and when the files are recieved it should write in a file in the directory with the name of the directory as column1_column2(Ex: reme_9625) and this process should be done for whole file.


##</code><code>##

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";
}

##</code><code>##

File looks like<br>
REME	9625	17[CHR] AND 76705160:76721740[CHRPOS]
ABNM	369	X[CHR] AND 47305522:47316264[CHRPOS]
BCKD	1029	16[CHR] AND 31027249:31031422[CHRPOS]

##</code><code>##

Actually I am a new to perl and past 3 days I am trying to work it out.
Any help will greatly be appreciated...