my %gene = ();
foreach (@gene_score) {
  $gene{$_->[0]}->{score} = $_->[1];
}

foreach (@gssc) {
  $gene{$_->[0]}->{start} = $_->[1];
  $gene{$_->[0]}->{stop} = $_->[2];
  $gene{$_->[0]}->{chr} = $_->[3];
}