$ perl -E '$_=qq{GeneName    GeneType};my($foo,$bar)=split(/:/,$_);say qq{foo: $foo\nbar: $bar}'
foo: GeneName    GeneType
bar:
$ perl -E '$_=qq{GeneName    GeneType};my($foo,$bar)=split(/\s+/,$_);say qq{foo: $foo\nbar: $bar}'
foo: GeneName
bar: GeneType

##</code><code>##

$ perl -E '%hash = qw( a b c d ); while( my( $k, $v ) = each %hash ) { say qq{$k => $v}; }'
c => d
a => b