my $query = qq~
		SELECT *
		FROM my_table
	~;
	my $sth = $dbh->prepare($query);
	my $rv = $sth->execute;
	
	my @res;
	
	while (my $r = $sth->fetchrow_hashref) {
		push(@res, $r);
	}