Select Code to Download

my %categories = ();
    while (  my $name = <$dataIn1>)
...
foreach my $category (sort { $categories{$b} <=> $categories{$a} } key
+s %categories) {
  printf "%s: %s\n", $category, $categories{$category};
}

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