diff --git a/2018/06/sol2.pl b/2018/06/sol2.pl
new file mode 100644
index 0000000..056c238
--- /dev/null
+++ b/2018/06/sol2.pl
@@ -0,0 +1,58 @@
+use 5.20.0;
+use warnings;
+
+use List::AllUtils qw/ minmax pairs uniq sum /;
+use List::UtilsBy qw/ max_by /;
+
+use experimental qw/
+    signatures
+    postderef
+/;
+
+my @points = map { [ split ', ' ] } <>;
+
+my @range_x = minmax map { $_->[0] } @points;
+my @range_y = minmax map { $_->[1] } @points;
+
+use DDP;
+
+p @range_x;
+p @range_y;
+
+my %grid;
+my @infinite;
+
+my @movers = ( [
+    int sum( @range_x )/2, int sum(@range_y)/2
+] );
+
+while( my $next = shift @movers ) {
+    calculate_distances( @$next );
+}
+
+
+say sum map { values %$_ } values %grid;
+
+# for my $row ( @grid ) {
+#     say map { $_ ?
+#             ($_->[1]->@* > 1 ? ' ' : $_->[1]->@* ) : '' } @$row
+# }
+
+sub dist($x1,$y1,$x2,$y2) {
+    return abs($x1-$x2) + abs($y1-$y2);
+}
+
+sub calculate_distances($x, $y) {
+
+    return if exists $grid{$x}{$y};
+
+    $grid{$x}{$y} = 10_000 > sum map { dist($x,$y,@$_) } @points
+        or return;
+
+
+    push @movers,
+        [ $x+1, $y ],
+        [ $x-1, $y ],
+        [ $x, $y+1 ],
+        [ $x, $y-1 ];
+}