たしかに説明不足なのでよくわからんね。あてずっぽうで
こんな感じでいけるみたいだが。

use SQL::Abstract;

my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->select('hoge', '*', undef, ['foo desc']);

print $stmt, "\n";