#!usr/bin/perl

@a=([78,92,157,186,2],[68,84,133,170,2],
    [68,84,141,170,2],[68,84,5,169,2],
    [206,157,28,185,3]);

print "\n";

foreach $row (@a)
{
 foreach $tmp ( @$row )
 {
   $c=8;
   until ( $c == 0 )
   {
      if( $tmp & 1==1 ) { print "X"; }
      else               { print " "; }
      $tmp>>=1;
      $c--;
   }
 }
 print "\n";
}