while (my $row = $sth->fetch()) {
        my ($id, $parent_id) = @$row;
        ...
    }