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