printf "weight:%d intensity: %d filename: %s\n", @$_
    for sort{
        $a->[ 0 ]  <=> $b->[ 0 ]
    } map{
        my $key = $_;
        map{
             [ $_->{ weight }, $_->{ intensity }, $key ]
        } values %{ $hoh{ $key } }
    } keys %hoh;;