diff --git a/lib/Slic3r/Fill/Flowsnake.pm b/lib/Slic3r/Fill/Flowsnake.pm
index 79d7a1530..85ad44ed4 100644
--- a/lib/Slic3r/Fill/Flowsnake.pm
+++ b/lib/Slic3r/Fill/Flowsnake.pm
@@ -12,7 +12,7 @@ sub process_polyline {
     my $self = shift;
     my ($polyline, $bounding_box) = @_;
     
-    $_->[X] += ($bounding_box->[X1] + $bounding_box->[X2]/2) for @{$polyline->points};
+    $_->[X] += ($bounding_box->[X1] + $bounding_box->[X2]/2) for @$polyline;
 }
 
 1;
diff --git a/lib/Slic3r/Polygon.pm b/lib/Slic3r/Polygon.pm
index b3bab44ae..040580e5a 100644
--- a/lib/Slic3r/Polygon.pm
+++ b/lib/Slic3r/Polygon.pm
@@ -137,7 +137,7 @@ sub is_printable {
 
 sub is_valid {
     my $self = shift;
-    return @{$self->points} >= 3;
+    return @$self >= 3;
 }
 
 1;
\ No newline at end of file
diff --git a/lib/Slic3r/Polyline.pm b/lib/Slic3r/Polyline.pm
index 43ee3948d..84d21fed9 100644
--- a/lib/Slic3r/Polyline.pm
+++ b/lib/Slic3r/Polyline.pm
@@ -63,7 +63,7 @@ sub simplify {
 
 sub reverse_points {
     my $self = shift;
-    @{$self->points} = reverse @{$self->points};
+    @$self = reverse @$self;
 }
 
 sub is_counter_clockwise {
@@ -152,13 +152,13 @@ sub clip_with_expolygon {
 
 sub bounding_box {
     my $self = shift;
-    return Slic3r::Geometry::bounding_box($self->points);
+    return Slic3r::Geometry::bounding_box($self);
 }
 
 sub translate {
     my $self = shift;
     my ($x, $y) = @_;
-    @{$self->points} = move_points([$x, $y], @{$self->points});
+    @$self = move_points([$x, $y], @$self);
 }
 
 1;