Select Code to Download

$VAR1 = [
          {
...
            'Rectangle' => 0,
            'Square' => 4
          },

use strict ;
use warnings ;
...
    push @result, \%subres ;
}
print Dumper(\@result) ;

 {5}{
            'Circle' => 0,
...
            'Rectangle' => 0,
            'Square' => 4
          },

FILE            CATEGORY   ATTRIB   SCORE
1.file.ext    Square     1        1
...
4.file.ext    Square     1        1
5.file.ext    Triangle   1        0
etc...