Select Code to Download

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

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

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

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