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