my $test = 1.15;
my $test2 = ($test - 1) * 100;
my $test3 = int($test2);
print "test2: $test2\n";
print "test3: $test3\n";