for my $id ($canvas->find("all")) {
   push @canvas, { type => $canvas->type($id),
                            coords => [ $canvas->coords($id) ],
                            config => [ map { ($_->[0], $canvas->itemcget($id, $_->[0])) } $canvas->itemconfigure($id) ],
                            # evtl. weitere interessante Optionen
                          };
}