# Do this using GREP

my @people = ('Jacob Smith', 'Michael Brown', 'Joshua Smith', 'Matthew
Cope');
@smiths = grep(/smith/i, @people);