You could do it like this:

my $element = "catchme";

my @array = ( "catchme", "if", "you", "can" );

if ( @found = grep { $_ eq $element } @array )
{
      my $found = join ",", @found;
      print "Here's what we found: $found\n";
}
else
{
      print "Sorry, \"$element\" not found in \@array\n";
}
[download]

I know that's a little longer than other answers but, I think this gives a little more detail and is easier to see how it works.