print grep(/$ARGV[0]/,@arr) ? 'JAAAA' : 'och nee :('; # klar
1; # Was sagt das aus?