my @list = (["polygon",...],
                ["rectangle",...],);

$canvas->create(@$_) for @list;