Select Code to Download

seek $LoanPaymentCalendarFileHandle, -$file_seek_calendario_pago[0], 1
+;

seek $LoanPaymentCalendarFileHandle, $file_seek_calendario_pago[0], 0;

# counters everywhere
my @counter_tran_prestamo = 0;
...
my @file_seek_tran_prestamo;
my @file_seek_cuentas_prestamo;
my @file_seek_calendario_pago;

my $counter_tran_prestamo = 0;
my $counter_cuentas_prestamo = 0;
...
my $file_seek_tran_prestamo;
my $file_seek_cuentas_prestamo;
my $file_seek_calendario_pago;