my ($item, @l1) = @ARGV;
print ((grep  $item eq $_ , @l1) ? "found" : "sorry");