Help for this page

Select Code to Download

Select or download this

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