Select Code to Download

my @Files;
my %Table;
...
        $Table{$category}[@Files] = $val; # Store into slot in table
    }
}

@Files = ('file1', 'file2');
%Table = (
...
    'A' => [ 12,    34   ],
    'B' => [ 152,   567  ],
);