my $value1 = 14.4; print "value1 = $value1\n"; my $value2 = 10 + 14.4 - 10; print "value2 = $value2\n"; if ( $value1 == $value2 ) { print "value 1 equals value 2\n"; } else { print "value 1 does not equal value2\n"; } #### value1 = 14.4 value2 = 14.4 value 1 does not equal value2 #### $number = 1.80; $premium = $number * ( 1 + 10/100 ); $expected = 1.98; print "Number 1 : $premium \n"; print "Number 2 : $expected \n"; print "Not" if $expected != $premium; print "Equal !! "; #### Number 1 : 1.98 Number 2 : 1.98 NotEqual !! #### my $value2 = 10 + 14.4 - 10; # wrong evaluated #### my $value2 = 14.4 + 10 - 10; # wrong evaluated #### my $value2 = 10 - 10 + 14.4; # right evaluated #### my $value2 = eval (10 + 14.4 - 10); # right evaluated #### $number = 1.80; $premium = eval ($number * ( 1 + 10/100 )); $expected = 1.98; print "Number 1 : $premium \n"; print "Number 2 : $expected \n"; print "Not" if $expected != $premium; print "Equal !! "; #### Number 1 : 1.98 Number 2 : 1.98 Equal !!