foreach(@realassert){
my ($theline)=grep{/$_/} @pcov;
push (@thelist, "$theline");
}