Select Code to Download

FOO FOO
BAR BAR 
MOO MOO

my $select = $DBH->prepare("SELECT FOO, BAR, MOO FROM tble WHERE CONCA
+T(FOO, ', ', BAR, ', ', MOO) LIKE ?");
...
        ($variable1, $variable2, $variable3) = @$names;
}
}

my $select = $DBH->prepare("SELECT FOO, BAR, MOO FROM tble WHERE CONCA
+T(FOO, ', ', BAR, ', ', MOO) LIKE ?");
...
    
        ($variable1, $variable2, $variable3) = @$names;
}