if ( @found = grep { $_ eq $element } @array )
{
      my $found = join ",", @found;
      print "Element exists\n";
}
[download]

This is the code for elements found. But it doesn not work for equating elements "xyz*" with "xyz<1>" , "<xyz<2>" etc