#!/usr/bin/perl

use strict;
use warnings;

my @terms = qw(a list of terms);
my $term = 'of';

@terms = grep { $_ ne $term } @terms;

print "@terms";