my @shape  = ("round", "square", "polygon");
my @colour = ("red", "salmon", "purple" );
my @tag ;
 
for my $j ( 0..2 ) { 
  if ( ($shape[$j] eq "round") && ($colour[$j] eq "red") ) 
    {$tag[$j]=1;} else {$tag[$j]=0;}
  print "$shape[$j] $colour[$j] $tag[$j]\n";
                    }