検索する文字が配列@DICに入っているのなら、
@LINES = map{ $tmp =~ /$_/g } @DIC;
っていう書き方もあるぽ。