my @vals = split /\|/, $DocumentReference;
for my $V (@vals) {
    if ($V =~ /\*/) {
        $V=~s/\*/%/;
        push @{$where{DocumentRef}{'-like'}}, $V;
    }
    else {
        push @{$where{DocumentRef}{'-in'}}, $V;
    }
}

##</code><code>##

$SQL .= ' IN (' . join(", ", @{$where{DocumentRef}{'-in'}}), ') ';

##</code><code>##

$SQL .= join(' OR ', map { "LIKE $_ " } @{$where{DocumentRef}{'-like'}});