use strict;

my $num=3891.0;
my $answer=$num % 5;

print "num is $num answer is $answer \n";

my $num=38.91 * 100;
my $answer=int($num + 0.5) % 5;

print "num is $num answer is $answer \n";