#!/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";