declare loop variable $p

this hopefully unbreaks the evalbot

evalbot.pl

@@ -201,7 +201,7 @@ package Evalbot;
         }
         my @combined;
         foreach my $r (sort keys %by_rev) {
-            foreach $p (sort keys %{$by_rev{$r}}) {
+            foreach my $p (sort keys %{$by_rev{$r}}) {
                 my $s = $by_rev{$r}{$p};
                 $s = @$s > 1
                     ? '{' . join(',', @$s) . '}'