rows 0x04 0000 0100 0x04 0000 0100 0x04 0000 0100 0x04 0000 0100 0x00 0000 0000 0x00 0000 0000 0x04 0000 0100 0x00 0000 0000 columns |||| |||+- 0x00 |||| ||+-- 0x00 |||| |+--- 0x4f |||| +---- 0x00 |||+------ 0x00 ||+------- 0x00 |+-------- 0x00 +--------- 0x00 ##

##

## The rows
my @rows =  ( 0x04, 0x04, 0x04, 0x04, 0x00, 0x00, 0x04, 0x00 );

## Initialise the columns
my @cols = (0) x 8;

## For each of the 8 columns
for my $col ( 0 .. 7 ){

    ## look at each of the rows in turn
    for my $row ( 0 .. 7 ) {  

        ## And if the $col bit of the $row row is set
        if( $rows[ $row ] & 1 << $col ) {
        
            ## Set the $row bit of the $col column
            $cols[ $col ] |= 1 << $row;
        }
    }
}