use strict;
my $key = 12345;
my @amn = (3.95,1.15);
my ($s,$s2);
for (@amn) {
$s += int($_*100);
$s2 += $_*100;
}
print "Scalar 1 : $s\n";
print "Scalar 2 : $s2\n";
####
Scalar 1 : 509
Scalar 2 : 510
##
##
perl -e 'print 1.15*100,"\n",int(1.15*100),"\n"'