Select Code to Download

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

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

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

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