Select Code to Download

#!/usr/bin/perl

...
  }

use Data::Dump 'dd'; dd \%hash;

{
  1 => { Balance => 183.57, day => 1, payment => 0, Total => 0 },
...
  3 => { Balance => "-", day => 3, payment => "-", Total => "-" },
  4 => { Balance => 12.86, day => 4, payment => 0, Total => 0 },
}