searching in perl

[im_here]

I want to write a program that will sort threw an array and tell me if a certin peace of data is in the array.

@vitem = ("1","2","3","4");
$citem = 0;

for my $vitem (@vitem)
{
if ($item == $vitem)
{
$citem++;
}
}

if ($citem == 0)
{ print "did not find";}
else {print "found";}

This seems to come up with found no matter what I put.

[moltar]

[perl]
my @vitem = qw(1 2 3 4);
my $citem = 0;

foreach my $vitem (@vitem) {
$citem++ if $vitem = $item;
}

if ( $citem ) {
print 'Did not find.';
} else {
print 'Found.';
}
[/perl]