my @group;

while (my $row = $sth->fetchrow_hashref) {
	push @group, []
		if !@group || $row->{foo_id} == $group[-1][0]{foo_id};
	
	push @{$group[-1]}, $row;
}

process($_) for (@group);