#!/usr/src/perl -w

use 5.030;

my $tipo_marginal = 0.4; # el actual tipo marginal superior es el 42%

my $minimo_exento = 22000; # es el mínimo para declarar, pero si se declara, se hace a partir de unos 12000 

say "TABLA DE RENTAS, IMPUESTO Y PORCENTAJE";
my ($t, $p);
for (my $r = $minimo_exento; $r < 500_000; $r += 10_000){
    $t = ($r - $minimo_exento) * $tipo_marginal;
    $p = $t / $r ;
    say "$r \t $t \t $p";   
}

# Q.E.D. el tipo medio efectivo va incrementándose  

exit 1;