#!/usr/bin/perl -w
use strict;
my @array2;
my @array1;
my @array3;
my @diff;
@array1 = (0,1,2,3,4,5,6,7,8,9);
@array2 = (1,2,3,4,6,8,10,12,14);
@array3 = (1,2,3,5,7,9,11,13,15);
foreach(@array1){
$diff[$_][0] = "yes";
}
foreach(@array2){
$diff[$_][1] = "yes";
}
foreach(@array3){
$diff[$_][2] = "yes";
}
print "\tArray1\tArray2\tArray3";
for(0..$#diff){
   print "\n$_";
   foreach(@{$diff[$_]}){
      if(defined($_)){
      print "\t$_";
      }else{
      print "\t";
      }
   }
}
print "\n";


##</code><code>##

        Array1  Array2  Array3
0       yes
1       yes     yes     yes
2       yes     yes     yes
3       yes     yes     yes
4       yes     yes
5       yes             yes
6       yes     yes
7       yes             yes
8       yes     yes
9       yes             yes
10              yes
11                      yes
12              yes
13                      yes
14              yes
15                      yes