my $num_points = \@shape;  # an array_ref
   print "$num_points\n";
  my $road = Goo::Canvas::Polyline->new(
        $road_group,FALSE,$num_points, .... other options);