Select Code to Download

Hi Monks,
I am bit stuck with a process, actually I have a tab separated file wi
+th 3 columns(shown below), what I am trying to do is read this file a
+nd 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 wi
+th the name of the directory as column1_column2(Ex: reme_9625) and th
+is process should be done for whole file.

open(FH,"upload") or die "Check The File";
while(<FH>)
...
    mkdir "$gene-$geneid" or die "Could not make the directory";
    print "$gene-$geneid\n";
}

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]

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