my $amount = 35784.45;
 $amount *= 100;
 print $amount, "\n"; # gives 3578445
 print int($amount); # gives 3578444 (!)