print " " x ($lenght_date), $count{$_}->{$date[$i]};

##</code><code>##

printf "%${lenght_date}s   ", $count{$_}->{$date[$i]};

##</code><code>##

print map { sprintf "%7d", $_ } @tasks;

##</code><code>##

print map { sprintf "%${lenght_date}s   " } @tasks;