#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @items = qw(foo bar buz baz red green yellow blue);
@items = grep {$_ ne 'red'} @items;
print Dumper \@items;