for (my $x=0; $x < @{$todo->{data}}; $x++) {