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

##</code><code>##

foreach (keys %{$PossibleTotals{9}) {

##</code><code>##

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