perl : SQL文を動的に作成するときのちょっとキレイなWHERE句の作り方

dynamic_sql.pl

my $sql = 'select * from hoge where';

my (@where, @bind);

push @where, 'name = ?';
push @bind,  'aiueo';

push @where, 'name = ?';
push @bind,  'kakikukeko';

push @where, 'name = ?';
push @bind,  'sasisuseso';

$sql .= join(' and ', @where);

my $dbh = DBI->connect(...);
my $sth = $dbh->prepare( $sql );
$sth->execute( @bind );