$one = $canvas->createOval(...);
$two = $canvas->createRectangle(...);
$group = $canvas->createGroup([0, 0], -members => [$one, $two]);
$mw->update;
$mw->after(1000);
$canvas->move($group, 100, 100);