my $x1 = (1.15*170)+0.50;
my $x2 = int($x1);
print "Number is: $x1, Integer part is: $x2";
####
my $x1 = (1.15*150)+0.50;
my $x2 = int($x1);
print "\nNumber is: $x1, Integer part is: $x2";
####
my $x1 = (1.15*30)+0.50;
my $x2 = int($x1);
print "\nNumber is: $x1, Integer part is: $x2";