#!/usr/bin/perl -w
use strict;
use Data::Dump qw(pp);

my $header_row= 'one two three four five';
my %table = (  row_1 => [qw(one five two)],
               row_2 => [qw(four two)],
               row_3 => [qw(three one five four)],
            );
                            
my %name2Index;              

my $col=0;   
foreach my $col_head (split ' ',$header_row)
{
   $name2Index{$col_head} = $col++;
}

print "name2Index table = ",pp(\%name2Index),"\n\n";

foreach my $row (sort keys %table)
{
   my @bitmap = (0) x keys %name2Index;
   
   foreach my $col_name (@{$table{$row}})
   {
      $bitmap[$name2Index{$col_name}] = 1; 
   }
   
   print "$row = @bitmap\n";
}

__END__
name2Index table = { five => 4, four => 3, one => 0, three => 2, two => 1 }

row_1 = 1 1 0 0 1
row_2 = 0 1 0 1 0
row_3 = 1 0 1 1 1