#list
  $array_lenth = @array = ("perl.a", "perl.b", "perl.c");
  $array_lenth = $array_lenth -1;
  for ($i = 0; $i <=$array_lenth; $i++) {
        $element = $array[$i];

        print "--value of $i element = $element \n";

#values to match
  @TheArray  = qw(perl.a perl.b perl.c);

   if (grep {$_ eq $element} @TheArray) {
     print qq(<td>Found '$element' element!</td>\n);
     $element =[$_];
   }
   else {
     print "NOT FOUND '$element' element!\n" ;
     $element =[$_];
   };

  }

##</code><code>##

 
	$dummy_a          = $input{'dummy_a'};  

##</code><code>##

 
	$dummy_a          = "perl.a perl.b perl.c perl.d perl.e";

##</code><code>##

	@array = $dummy_a; or @TheArray = $dummy_a;