From fab17ae14261d679e7952889901b16a8b029f8aa Mon Sep 17 00:00:00 2001
From: Dave Cross <>
Date: Mon, 28 Oct 2019 12:11:15 +0000
Subject: Added challenge #032 / task #1

---
 challenge-032/dave-cross/perl5/ch-1.pl | 22 ++++++++++++++++++++++
 challenge-032/dave-cross/perl5/input   |  6 ++++++
 2 files changed, 28 insertions(+)
 create mode 100644 challenge-032/dave-cross/perl5/ch-1.pl
 create mode 100644 challenge-032/dave-cross/perl5/input

diff --git a/challenge-032/dave-cross/perl5/ch-1.pl b/challenge-032/dave-cross/perl5/ch-1.pl
new file mode 100644
index 0000000000..42a706b7ed
--- /dev/null
+++ b/challenge-032/dave-cross/perl5/ch-1.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+my $csv;
+if ($ARGV[0] eq '-csv') {
+  shift;
+  $csv = 1;
+}
+
+my %count;
+
+while (<>) {
+  chomp;
+  $count{$_}++;
+}
+
+for (sort { $count{$b} <=> $count{$a} } keys %count) {
+  say $_, ($csv ? ',' : "\t"), $count{$_};
+}
diff --git a/challenge-032/dave-cross/perl5/input b/challenge-032/dave-cross/perl5/input
new file mode 100644
index 0000000000..00fe021a08
--- /dev/null
+++ b/challenge-032/dave-cross/perl5/input
@@ -0,0 +1,6 @@
+apple
+banana
+apple
+cherry
+cherry
+apple
-- 
cgit