my @list= (1,8,3,9,2);

my @newlist= grep $_<5, @list;

# @newlist would be (1,3,2);

##</code><code>##

unless ( grep $person_has eq $_,  $item ) {
unless ( $person_has eq $item ) {