my $gene1 = $query->param('GS1');
my @gene1 = split('',$gene1);
print STDOUT $gene1[0];