Select Code to Download

use strict ;
use warnings ;
...
} 
print "\n" ;
__DATA__

#ID's
File    ID
...
28    0    0    0    1    0    0    0    1    1    0    0    0    1   
+ 1    1    1                
29    0    0    0    0    0    0    0    1    1    0    0    0    0   
+ 1    1    0                
30    0    0    0    1    0    0    0    1    1    0    0    0    1   
+ 1    1    1

my @data = qw(Square Triangle Circle Square Triangle Circle Circle Rec
+tangle Rectangle Circle Triangle Triangle Square Rectangle Rectangle 
+Square) ;
$data = \@data ;
...
    push @result, \%subres ;
}
print Dumper(\@result) ;

$VAR1 = [
          {
...
            'Square' => 4
          }
        ];