#!/usr/local/bin/perl # compound_interest.pl - the miracle of compound interest # First, we'll set up the variables we want to use. $nest_egg = 10000; # $nest_egg is our starting amount $year = 2000; # This is the starting year for our table. $duration = 10; # How many years are we saving up? $apr = 9.5; # This is our annual percentage rate. # Print the headers for our report. print "Year", "\t", "Balance", "\t", "Interest", "\t", "New balance", "\n"; # Calculate interest for each year. for $i (1 .. $duration) { print $year, "\t"; $year++; print $nest_egg, "\t"; # Try using this instead to see why this line looks so complex: # $interest = ($apr / 100) * $nest_egg $interest = int (($apr / 100) * $nest_egg * 100) / 100; print $interest, "\t"; $nest_egg += $interest; print $nest_egg, "\n"; } print $year, "\t", $nest_egg, "\n";