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

##</code><code>##

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