Select Code to Download

my @GI = ("\Qgi|Q384722390|emb|WP_938420210.1|Gene name\E","\Qgi|34254
+6780|emb|WP_934203412.1|Gene name\E");
my @Accession = ("WP_938420210.1","WP_934203412.1");

 my $X = 0;
my $Y = 0;
while($X <= 468){ 
...
                                                      }
    else{$Y++};
                             }