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