I am having a hard time getting this code to work. seems to be a problem with

foreach   keys (%{$PossibleTotals{9}} {
    {$TempHash{int($_)} = 1 if (($_ < 10000) && (int($_) == sprintf("%
+.7f", $_)));
     print "$_ : ${$PossibleTotals{9}}{$_}\n" if $_ =~ /^19[45]\./;
}
[download]

Error msg: Missing $ on loop variable at ./nine line 31.

-bn most likely better written as

foreach (keys %{$PossibleTotals{9}) {
[download]

but still has problems running under use strict;
-bn
better yet. let me give you a piece of code without a typo :)

foreach  (keys %{$PossibleTotals{9}}) {
        $TempHash{int($_)} = 1 if (($_ < 10000) && (int($_) == sprintf
+("%.7f", $_)));
        print "$_ : ${$PossibleTotals{9}}{$_}\n" if $_ =~ /^19[45]\./;
}
[download]

so what it looks like is a missplaced (, a missing ) and an extra {

-bn