something like:
my $score = $subres->[2]
Foreach $category in $categories {where %subres [0] = $category} ($score = ($subres [1] / ($categories{$category}))