- 1000.00 1000.00 1000.00
- 2000.00 2000.00 2000.00
3000.00 2925.00 2950.00
4000.00 3825.00 3875.00
5000.00 4675.00 4775.00
6000.00 5525.00 5675.00
7000.00 6375.00 6525.00
8000.00 7175.00 7325.00
9000.00 7975.00 8125.00
10000.00 8775.00 8925.00
11000.00 9575.00 9725.00
12000.00 10375.00 10525.00
13000.00 11175.00 11325.00
14000.00 11975.00 12125.00
15000.00 12775.00 12925.00
16000.00 13575.00 13725.00
17000.00 14375.00 14525.00
18000.00 15175.00 15325.00
19000.00 15975.00 16125.00
20000.00 16775.00 16925.00
21000.00 17575.00 17725.00
22000.00 18375.00 18525.00
23000.00 19125.00 19275.00
24000.00 19875.00 20025.00
25000.00 20625.00 20775.00
26000.00 21375.00 21525.00
27000.00 22125.00 22275.00
28000.00 22875.00 23025.00
29000.00 23625.00 23775.00
30000.00 24375.00 24525.00
31000.00 25125.00 25275.00
32000.00 25875.00 26025.00
33000.00 26625.00 26775.00
34000.00 27375.00 27525.00
35000.00 28125.00 28275.00
36000.00 28875.00 29025.00
37000.00 29625.00 29775.00
38000.00 30375.00 30525.00
39000.00 31125.00 31275.00
40000.00 31875.00 32025.00
41000.00 32625.00 32775.00
42000.00 33375.00 33525.00
43000.00 34075.00 34225.00
44000.00 34775.00 34925.00
45000.00 35475.00 35625.00
46000.00 36175.00 36325.00
47000.00 36875.00 37025.00
48000.00 37575.00 37725.00
49000.00 38275.00 38425.00
50000.00 38975.00 39125.00
51000.00 39675.00 39825.00
52000.00 40375.00 40525.00
53000.00 41075.00 41225.00
54000.00 41775.00 41925.00
55000.00 42475.00 42625.00
56000.00 43175.00 43325.00
57000.00 43875.00 44025.00
58000.00 44575.00 44725.00
59000.00 45275.00 45425.00
60000.00 45975.00 46125.00
61000.00 46675.00 46825.00
62000.00 47375.00 47525.00
63000.00 48025.00 48175.00
64000.00 48675.00 48825.00
65000.00 49325.00 49475.00
66000.00 49975.00 50125.00
67000.00 50625.00 50775.00
68000.00 51275.00 51425.00
69000.00 51925.00 52075.00
70000.00 52575.00 52725.00
71000.00 53225.00 53375.00
72000.00 53875.00 54025.00
73000.00 54525.00 54675.00
74000.00 55175.00 55325.00
75000.00 55825.00 55975.00
76000.00 56475.00 56625.00
77000.00 57125.00 57275.00
78000.00 57775.00 57925.00
79000.00 58425.00 58575.00
80000.00 59075.00 59225.00
81000.00 59725.00 59875.00
82000.00 60375.00 60525.00
83000.00 60975.00 61075.00
84000.00 61575.00 61625.00
- 85000.00 62175.00 62175.00
* 86000.00 62775.00 62725.00
* 87000.00 63375.00 63275.00
* 88000.00 63975.00 63825.00
* 89000.00 64575.00 64375.00
* 90000.00 65175.00 64925.00
* 91000.00 65775.00 65475.00
* 92000.00 66375.00 66025.00
* 93000.00 66975.00 66575.00
* 94000.00 67575.00 67125.00
* 95000.00 68175.00 67675.00
* 96000.00 68775.00 68225.00
* 97000.00 69375.00 68775.00
* 98000.00 69975.00 69325.00
* 99000.00 70575.00 69875.00
* 100000.00 71175.00 70425.00
* 101000.00 71775.00 70975.00
* 102000.00 72375.00 71525.00
* 103000.00 72925.00 72075.00
* 104000.00 73475.00 72625.00
* 105000.00 74025.00 73175.00
* 106000.00 74575.00 73725.00
* 107000.00 75125.00 74275.00
* 108000.00 75675.00 74825.00
* 109000.00 76225.00 75375.00
* 110000.00 76775.00 75925.00
* 111000.00 77325.00 76475.00
* 112000.00 77875.00 77025.00
* 113000.00 78425.00 77575.00
* 114000.00 78975.00 78125.00
* 115000.00 79525.00 78675.00
* 116000.00 80075.00 79225.00
* 117000.00 80625.00 79775.00
* 118000.00 81175.00 80325.00
* 119000.00 81725.00 80875.00
* 120000.00 82275.00 81425.00
* 121000.00 82825.00 81975.00
* 122000.00 83375.00 82525.00
* 123000.00 83925.00 83075.00
* 124000.00 84475.00 83625.00
* 125000.00 85025.00 84175.00
* 126000.00 85575.00 84725.00
* 127000.00 86125.00 85275.00
* 128000.00 86675.00 85825.00
* 129000.00 87225.00 86375.00
* 130000.00 87775.00 86925.00
* 131000.00 88325.00 87475.00
* 132000.00 88875.00 88025.00
* 133000.00 89425.00 88575.00
* 134000.00 89975.00 89125.00
* 135000.00 90525.00 89675.00
* 136000.00 91075.00 90225.00
* 137000.00 91625.00 90775.00
* 138000.00 92175.00 91325.00
* 139000.00 92725.00 91875.00



use strict;

my $income = 15000;
my $tax_start = 2000;

#main();

for(my $i=1000; $i<140000; $i+=1000) {

my $t1 = remove_tax_month($i);
my $t2 = remove_tax_month_2($i);
printf("%s\t%8.2f\t%8.2f\t%8.2f\n", $t1 > $t2 ? "*" : $t1 == $t2 ? "-" : "", $i, $t1, $t2);
}

sub remove_tax_month
{
my $income = shift;

if ($income > $tax_start) {

my $taxpart = $income - $tax_start;

my $tax = 0;

if ($taxpart <= 500) {
$tax = $taxpart*0.05 - 0;
}
elsif ($taxpart <= 2000) {
$tax = $taxpart*0.1 - 500*0.05;
}
elsif ($taxpart <= 5000) {
$tax = $taxpart*0.15 - 500*0.1 - 1500*0.05;
}
elsif ($taxpart <= 20000) {
$tax = $taxpart*0.2 - 500*0.15 - 1500*0.1 - 3000*0.05;
}
elsif ($taxpart <= 40000) {
$tax = $taxpart*0.25 - 500*0.2 - 1500*0.15 - 3000*0.1 - 15000*0.05;
}
elsif ($taxpart <= 60000) {
$tax = $taxpart*0.3 - 500*0.25 - 1500*0.2 - 3000*0.15 - 15000*0.1 - 20000*0.05;
}
elsif ($taxpart <= 80000) {
$tax = $taxpart*0.35 - 500*0.3 - 1500*0.25 - 3000*0.2 - 15000*0.15 - 20000*0.1 - 20000*0.05;
}
elsif ($taxpart <= 100000) {
$tax = $taxpart*0.4 - 500*0.35 - 1500*0.3 - 3000*0.25 - 15000*0.2 - 20000*0.15 - 20000*0.1 - 20000*0.05;
}
else {
$tax = $taxpart*0.45 - 500*0.4 - 1500*0.35 - 3000*0.3 - 15000*0.25 - 20000*0.2 - 20000*0.15 - 20000*0.1 - 20000*0.05;
}

$income = $income - $tax;
}

return int($income*100)/100;
}

sub remove_tax_month_2
{
my $income = shift;

if ($income > $tax_start) {

my $taxpart = $income - $tax_start;
my $tax;

if ($taxpart <= 1500) {
$tax = $taxpart*0.05 - 0;
}
elsif ($taxpart <= 4500) {
$tax = $taxpart*0.1 - 1500*0.05;
}
elsif ($taxpart <= 20000) {
$tax = $taxpart*0.2 - 1500*0.15 - 3000*0.1;
}
elsif ($taxpart <= 40000) {
$tax = $taxpart*0.25 - 1500*0.2 - 3000*0.15 - 15500*0.05;
}
elsif ($taxpart <= 60000) {
$tax = $taxpart*0.3 - 1500*0.25 - 3000*0.2 - 15500*0.1 - 20000*0.05;
}
elsif ($taxpart <= 80000) {
$tax = $taxpart*0.35 - 1500*0.3 - 3000*0.25 - 15500*0.15 - 20000*0.1 - 20000*0.05;
}
else {
$tax = $taxpart*0.45 - 1500*0.4 - 3000*0.35 - 15500*0.25 - 20000*0.2 - 20000*0.15 - 20000*0.1;
}

$income = $income - $tax;
}

return int($income*100)/100;
}