#!/usr/local/bin/perl -w

use strict;

my ( $number, $premium, $expected );

$number   = 1.80;
$premium  = $number * ( 1 + 10/100 );  # 1.8 + 10% of 1.8
$expected = 1.98;  # As we know 1.8 + 10% of 1.8 is 1.98
 
print "Number 1 : $premium  \n";
print "Number 2 : $expected \n";
print "Not" if ( $expected != $premium );
print "Equal !! ";