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";
    }
    
    }