perl -ane '
    $h{$F[0]}++ or push @days, $F[0];
    $h{$F[1]}++ or push @time, $F[1];
    $data{$F[0],$F[1]}++
}{
    print "\t\t", join "\t", @days;
    print "\n";
    print for join "\t", map { $t = $_ ; (map { $data{$_,$t} ? "X" : " " } @days) } @time;
' file