#!/usr/bin/perl
use strict; # https://perlmonks.org/?node_id=11118040
use warnings;
my %hash =
(
1 => { Balance => 183.57, day => 1, payment => 0, Total => 0 },
4 => { Balance => 12.86, day => 4, payment => 0, Total => 0 },
);
use Data::Dump 'dd'; dd \%hash;
for my $day ( 1 .. 4 )
{
$hash{$day} = { Balance => '-', day => $day, payment => '-', Total =
+> '-' ,
%{ $hash{$day} // {} } };
}
use Data::Dump 'dd'; dd \%hash;
Outputs:
{
1 => { Balance => 183.57, day => 1, payment => 0, Total => 0 },
4 => { Balance => 12.86, day => 4, payment => 0, Total => 0 },
}
{
1 => { Balance => 183.57, day => 1, payment => 0, Total => 0 },
2 => { Balance => "-", day => 2, payment => "-", Total => "-" },
3 => { Balance => "-", day => 3, payment => "-", Total => "-" },
4 => { Balance => 12.86, day => 4, payment => 0, Total => 0 },
}