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"'