#! /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__