my $gene1 = $query->param('GS1');
     @gene1 = split('',$gene1);