my @Matches = grep { /$_/, $line } @arr; #get the pattern not the matched line