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