#!/usr/bin/perl

use 5.040.2;

my $plantas = 12;  # 11 + entresuelo

my $valor_bajo = 123_456.78;   # valor más bajo que corresponde al... entresuelo
my $valor_alto = 234_567.89;   # ático

############################ ya están los datos

use Time::HiRes qw ( gettimeofday tv_interval );


my $t0 = [gettimeofday];
#         ($seconds, $microseconds) = gettimeofday;
#         $elapsed = tv_interval ( $t0, [$seconds, $microseconds]);


### El contumilioso cálculo

my $diff = ($valor_alto - $valor_bajo) / ($plantas-1);
my @catastro2;


for my $p ( 1 .. $plantas ){    # arbitrariamente el entresuelo es 1 
    $catastro2[$p] = $valor_bajo + ($p-1) * $diff;
    $catastro2[$p] = sprintf "%.02f", $catastro2[$p];
    say $p, "\t\t", $catastro2[$p];
}

### creo que acaba aquí

my $elapsed = tv_interval ( $t0, [gettimeofday]);
  
say "\nTiempo empleado en el cálculo = $elapsed\n";

exit 2;