diff --git a/02_Amazing/perl/amazing.pl b/02_Amazing/perl/amazing.pl
index a474ba59..c7cb5f44 100644
--- a/02_Amazing/perl/amazing.pl
+++ b/02_Amazing/perl/amazing.pl
@@ -60,6 +60,10 @@ while (keys %is_visited < $width * $height) {
     }
 }
 
+unless ($path_found) {
+    $walls[-1]->[rand $width] |= 1;
+}
+
 print_maze();
 
 sub input_dimensions {