Select Code to Download

use strict;
use warnings;
...
    } keys %hoh;

print join "\n", @lines;

FILENAME3 C 4: 1000
FILENAME2 D 7: 2000
...
FILENAME1 B 3: 4000
FILENAME2 C 3: 5000
FILENAME3 A 3: 6000