>perl -anE "$h{$F[3]}||=$col++; push @x,[$F[0],$h{$F[3]},$F[4]]}{say qq|Gene\t\t|,join(qq|\t|,keys %h);for my $r(@x){say qq|$r->[0]\t|,map{$h{$_}==$r->[1]?
$r->[2]:qq|\t|} keys %h}" data.2