my $sth = $dbh->prepare_cached( $sql );
$sth->execute( $response_x, $response_y );

$sth->bind_columns( \my ($respondent) );

my @respondents;
while ($sth->fetch)
{
    push @respondents, $responses;
}

$sth->finish;