diff --git a/2016/06/1.pl b/2016/06/1.pl
new file mode 100644
index 0000000..90f5fb0
--- /dev/null
+++ b/2016/06/1.pl
@@ -0,0 +1,20 @@
+use 5.20.0;
+
+use List::UtilsBy qw/ max_by /;
+
+my @message;
+
+while(<>) {
+    chomp;
+    my @letters = split '';
+    while( my( $i, $l ) = each @letters ) {
+        $message[$i]{$l}++;
+    }
+}
+
+use DDP;
+
+for my $m ( @message ) {
+    print max_by { $m->{$_} } keys %$m;
+}
+
diff --git a/2016/06/2.pl b/2016/06/2.pl
new file mode 100644
index 0000000..7b3c59f
--- /dev/null
+++ b/2016/06/2.pl
@@ -0,0 +1,20 @@
+use 5.20.0;
+
+use List::UtilsBy qw/ max_by min_by /;
+
+my @message;
+
+while(<>) {
+    chomp;
+    my @letters = split '';
+    while( my( $i, $l ) = each @letters ) {
+        $message[$i]{$l}++;
+    }
+}
+
+use DDP;
+
+for my $m ( @message ) {
+    print min_by { $m->{$_} } keys %$m;
+}
+