02:17   02:40   02:46   02:59   

Apples     0     0     0     0
Grapes         7     7     7     7
bricks         0     0     0     0
TUBELIGHS        282     271     265     257

 TOTAL              334    320    312    303

##</code><code>##

        printf "%${lenght_frt}s   ", "  ";

        foreach (sort keys %date) {
        printf "%-${lenght_date}s   ", $_;
        }
        print "\n";

        foreach (sort keys %obj) {
        printf "%-${lenght_frt}s ", $_;
        for( my $i = 0; $i <= $#date; $i++) {

                if(exists($count{$_}->{$date[$i]})) {
              print " " x ($lenght_date), $count{$_}->{$date[$i]};
          }
        }
        print "\n";
        }
        close (FH);
        print "\n";

        printf "%-${lenght_frt}s   ", " TOTAL ";
        print map { sprintf "%7d", $_ }@tasks;
        print "\n";
        }

##</code><code>##

		02:17 	02:40 	02:46 02:59   
Apples     	0     	0     	0     	0
Grapes         	7     	7     	7     	7
bricks         	0     	0     	0     	0
TUBELIGHS       282     271     265     257

 TOTAL         334    	320    312    303