my $select = param('select'); my $found; foreach (@display_files) { if ($_ eq $select) { $found = 1; last; } } #### my $select = param('select'); my $found = List::Util::first { $_ eq $select } @display_files;