From 38d2dc12f1bf8988d8d4afca6a805dc382ecbe74 Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Sat, 19 Sep 2020 17:01:03 +0200
Subject: initial

---
 challenge-078/markus-holzer/perl/ch-1.pl | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 challenge-078/markus-holzer/perl/ch-1.pl

diff --git a/challenge-078/markus-holzer/perl/ch-1.pl b/challenge-078/markus-holzer/perl/ch-1.pl
new file mode 100644
index 0000000000..99d8026876
--- /dev/null
+++ b/challenge-078/markus-holzer/perl/ch-1.pl
@@ -0,0 +1,10 @@
+use Modern::Perl;
+
+say join "> ", @ARGV;
+say join ", ", leader_elements( @ARGV );
+ 
+sub leader_elements {
+    my $first = my $max = pop @_;
+    defined $first
+        ? reverse $first, grep { $_ > $max ? [$max = $_] : 0 } reverse @_
+        : 0 }
\ No newline at end of file
-- 
cgit