Maybe it's a typo, but you're missing an equal sign in your assignment. It should be

my %host = ( $inst, $count  => { 'dayofweek' => $dayofweek, 'month' =>
+ $month, 'date' => $date
+, 'timing' => $timing, 'year' => $year, 'dpoint' => $dpoint } );
[download]