#!/usr/bin/perl
use v5.14;
use Data::Dumper;
no strict;
$_="0123456789";

@a=map {
        $c=ord^4;
    map$c>>$_&1?' ':'#',(0..6)
} ("gY3:Yg{?19\x4;;{	52=Y52Md4k\x5kT52JE52Ixz
r~xzM52M]52E"=~s/(\d)(.)/$2x$1/ger=~/./gs);
for$l(0..6) {
        say map {
                $c=$_;
                " ",map {
                        $a[$c*49+7*$_+$l];
                } (0..6)
        } (/./g)
}