Select Code to Download

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