use strict;
use warnings;
use diagnostics;

my $amount = 1e9;
my $months = 12;

my $repayment = $amount/$months;
print "Monthly repayment = $repayment\n";

use integer;
$repayment = $amount/$months;
print "Monthly repayment = $repayment\n";