$item = "match";
@array = grep {$_ ne $item} @array;
[download]

-- Mike

--
just,my${.02}

grep can do what you're trying to accomplish. Consider the following:

#! /usr/bin/perl

use strict ;
use warnings ;
$|++ ;

my @array = qw( foo bar match zoot zoot match match match ) ;
my $item  = 'match' ;

print "Original size: " .  @array . "\n" ;
print "Original contents: " . join( " : ", @array ) . "\n\n" ;

my @new_array = grep { ! /^$item$/ } @array ;

print "New size: " .  @new_array . "\n" ;
print "New contents: " . join( " : ", @new_array ) . "\n\n" ;

__END__
[download]

Results:

Original size: 8
Original contents: foo : bar : match : zoot : zoot : match : match : m
+atch

New size: 4
New contents: foo : bar : zoot : zoot
[download]

Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche

If you want to remove the elements from the array entirely, grep is the way:

@array = grep { $_ ne $item } @array;
[download]

Updade: Corrected pasteo.

After Compline,
Zaxo

If you want to remove the elements from the array entirely, grep is the way [Emphasis added]

Well, grep is one way (and probably the one that will work best for the original question.) But splice is also a perfectly good way to remove elements from an array.

-sauoq
"My two cents aren't worth a dime.";

$ques = "how do i make an array spin around?";
$element = 4;
print delete_element($element, $ques), "\n";

sub delete_element {
  my ($element, $question) = @_;
  if($question =~ /array.*\?$/i) {
    @elements = split(' ', $question);
    $elements[$element] = '';
    return join(' ', @elements);
  }
  else {
    print "That is not an array question!\n";
    return $question;
  }
}

output:

how do i make  array spin around?
[download]

the problem is that there are still 10 elements if you just undef the match(es):

my @array = 1..10;

print "@array\n";

my $item = 3;

foreach my $element (@array) {
   undef $element if ($element eq $item);
}

print "@array\n";
print $#array + 1;
[download]

see, the array doesn't actually shrink. when you do a print $#array + 1 you still get a 10 (assuming there were 10 elements to start like there were here).

to get rid of the phantom element(s), you could use splice like this:

my @array = 1..10;

print "@array\n";

my $item = 3;
my @empties;
my $count;

foreach my $element (@array) {
    if ($element eq $item) {
    undef $element;
    push @empties, $count;
    }
    $count ++;
}

foreach (@empties) {
    splice (@array, $_, 1);
}

print "@array\n";
print $#array + 1;
[download]

hth,
--au