@$row_data{groups} = grep{ $_->{whatever} == $foo } @$row_data{groups} ;