if ($input) {
my $search = $DBH->prepare("SELECT * FROM tble WHERE CONCAT(NAME, ', '
+, AGE, ', ', COUNTRY) LIKE ?");
$search->execute('%'.$input.'%');

    my $row;
    while (my $row = $search->fetchrow()) {
         print "$row\n";
    }
    
    }