my $results;
foreach my $pat ("$each\%", "\%$each\%") {
$sth->execute($pat,$pat);
$results= $sth->fetchall_arrayref();
last if @$results==1;
my $results;
foreach my $pat ("$each\%", "\%$each\%") {
$sth->execute($pat,$pat);
$results= $sth->fetchall_arrayref();
last if @$results==1;