Help for this page

Select Code to Download


  1. or download this
    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";
                        }