Select Code to Download

printf "weight:%d intensity: %d filename: %s\n",
    $hoh{ $_->[ 0 ] }{ $_->[ 1 ]}{ weight },
...
weight:4000 intensity: 3 filename: FILENAME1
weight:5000 intensity: 3 filename: FILENAME2
weight:6000 intensity: 3 filename: FILENAME3

printf "weight:%d intensity: %d filename: %s\n",
    @{ $_ }[ 0, 1, 2 ]
...
             ]
        } keys %{ $hoh{ $key } }
    } keys %hoh;;

printf "weight:%d intensity: %d filename: %s\n", @$_
    for sort{
...
             [ $_->{ weight }, $_->{ intensity }, $key ]
        } values %{ $hoh{ $key } }
    } keys %hoh;;