my @badwords = qw/pass admin qwerty/; #continue as you want

if (grep { $pass =~ /$_/ } @badwords) {
    print "Bad password!"
}