print FILE ">$giName $gssName $definition\n$sequence"; #### ( my $giName, my $gssName, my $definition, my $sequence ) #### my ($giName,$gssName,$definition, $sequence )