Challenge #033 / Task #1

1 files changed, 16 insertions, 0 deletions

diff --git a/challenge-033/dave-cross/perl5/ch-1.pl b/challenge-033/dave-cross/perl5/ch-1.pl
new file mode 100644
index 0000000000..5ad6146ce9
--- /dev/null
+++ b/challenge-033/dave-cross/perl5/ch-1.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+my %letters;
+
+while (<>) {
+  $_ = lc $_;
+  tr/a-z//cd;
+
+  $letters{$_}++ for split //;
+}
+
+say "$_: $letters{$_}" for sort keys %letters;