Select Code to Download

%the_hash = (
  day     => '-',
...
  Total   => '-',
  %the_hash
);

$ perl -MData::Printer -E "%h = (day => 1, Total => 2); %h = (day => '
+-', Balance => '-', payment => '-', Total => '-', %h); p %h;"
{
...
    payment   "-",
    Total     2
}