1  #!/usr/bin/env perl
 2  use strict; use warnings; use v5.34;
 3  my $name=$ARGV[0];
 4  my %h;
 5  my %_h;
 6  my $key;
 7  while($_=<STDIN>){
 8     $key=$2 if /(Gen|Stim).*: ([^ ]*)/;
 9     $h{$name}{"${key}_$1"}=$2 if /^\W+(LC|h).*=.*?([0-9.]+)/;
10  }
11  
12  my @vals=sort (keys %{$h{(keys %h)[0]}});
13  say join("\t","name",@vals);
14  for my $f (keys %h){
15    %_h = %{$h{$f}};
16    say join("\t",$f, @_h{@vals} );
17  }