Select Code to Download

Mon 0100
Mon 0700
...
Sat 0100
Sun 0100
Sun 0700

        Mon Tue Wen Thu Fri Sat Sun
0100    X       X   X   X   X   X
0700    X   X   X   X   X       X

perl -lane '
    $h{$F[0]}++ or push @days, $F[0];
...
        print $t, "\t\t", join "\t", map { $data{$_,$t} ? "X" : " " } 
+@days;
    }
' file

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