my @watchstrings = $schema->resultset('WatchString')->all
while( my $line <INPUT> )
{
     for my $w (@watchstrings)
     {
        ...
     }
}