perlは組んだことが無いので、本当のことは分かりませんが、小数点の誤差によるものかもしれません。

40.8はコンピュータの世界では無限小数です。
101000.11001100 ... と続きます。
故に計算の打ち切りで40.8より小さい数と判断されているのではないでしょうか。
printfで計算結果が分かりませんか？

vbkさんとかぶってしまいました。

vbkさん　gontomoさん
返事をありがとうございます。

確かに小数点の誤差のようです。
しかしperlのように円熟した言語ならこのへんは解決されていると過大に期待していました。
例えば、2.3%3.8 ---> 2 というように、2.3は2に、3.8は3に変換して計算してくれるのですから。

いろいろ試してみました。
$a=40.8
$b=$a*100
print $b ----> 4080
しかし
print int($b) ---> 4079
print $b%10 ---> 9
print int($b*1) ---4079

perlでは文字と数字は自動的に変換されるため型変換の関数がありません。
そこで、#5でお教えいただいた fprintf()を使うしかなさそうです。
$x = sprintf("%.0f", $b)
print $x ---> 4080
print int($x) ---> 4080
print $x%10 ---> 0

勉強になりました。