foreach my $t (sort keys %midHash){
        print $t . "\t" . join(", ", @{$midHash{$t}{state}}) . "\n";
}