my @todos = $data;
while (@todos) {
	my $todo = pop @todos;
	if (exists $todo->{data}) {
		for (my $x=0; $x < @{$todo->{data}}; $x++) {
			if ($todo->{data}[$x]{id} eq '2') {
				delete $todo->{data}[$x];
			}
			else {
				push @todos, $todo->{data}[$x];
			}
		}
	}
}