@coords = ([$x1, $y1], [$x2, $y2], [$x3, $y3], ....);

##</code><code>##

$shape = \@coords;