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