sub genWhereString {
	my ($fields, $where, $orderby) = @_;
	my $query = "select " . join(", ", @$fields);
	$query .= " " . join(" and ", @$where) if $where;
	$query .= $orderby if $orderby;
	my $sth  = $dbh->prepare($query) || return $DBI::errstr;

	# et cetera

##</code><code>##

my @a = (1 .. 10);
my @b = (1 .. 3);
@a = @b;

##</code><code>##

my @a = (1 .. 10);
@a = (1 .. 5);

##</code><code>##

my @a = (1 .. 10);
@a = 1;

##</code><code>##

my @a = (1 .. 10);
@a = some_sub_returning_one_or_more_results();