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

##</code><code>##

Original size: 8
Original contents: foo : bar : match : zoot : zoot : match : match : match

New size: 4
New contents: foo : bar : zoot : zoot