print join "\n",
      map { $t = $_ ;
            join("\t", $_."\t",
                map { $data{$_,$t} ? "X" : " " } @days
            )
          } @time;