use strict;
use warnings;

my @arr = ('malp', 'ach', 'test');

print grep(/$ARGV[0]/,@arr) ? 'JAAAA' : 'och nee :(';
1;