foreach(@keys) {
           if ( $fillarr1[14] =~ /$_/)
        {  
         #Found
}