diff --git a/lib/Slic3r/Layer/Region.pm b/lib/Slic3r/Layer/Region.pm
index d1fd5b9c6..ee3023277 100644
--- a/lib/Slic3r/Layer/Region.pm
+++ b/lib/Slic3r/Layer/Region.pm
@@ -538,7 +538,7 @@ sub process_bridges {
             } elsif (@edges) {
                 my $center = Slic3r::Geometry::bounding_box_center([ map @$_, @edges ]);
                 my $x = my $y = 0;
-                foreach my $point (map @$, @edges) {
+                foreach my $point (map @$_, @edges) {
                     my $line = Slic3r::Line->new($center, $point);
                     my $dir = $line->direction;
                     my $len = $line->length;