How do I transform this into the $shape object that tangent has referenced?

If @coords is created as:

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

then it's just a matter of doing:

$shape = \@coords;
[download]

Cheers,
Rob