From 01914fa6aeab6d4468e6f7ad14220749a54f25a2 Mon Sep 17 00:00:00 2001
From: Ryan Thompson <i@ry.ca>
Date: Sun, 16 Feb 2020 17:35:42 -0600
Subject: Remove extra output for blog post

---
 challenge-047/ryan-thompson/perl/ch-1.pl | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/challenge-047/ryan-thompson/perl/ch-1.pl b/challenge-047/ryan-thompson/perl/ch-1.pl
index 594d24cf62..c731f39790 100644
--- a/challenge-047/ryan-thompson/perl/ch-1.pl
+++ b/challenge-047/ryan-thompson/perl/ch-1.pl
@@ -15,9 +15,6 @@ my %rom = (I => 1, V => 5, X => 10, L => 50, C => 100, D => 500, M => 1000,
                   IV => 4,IX =>  9,XL => 40,XC =>  90,CD => 400,CM =>  900);
 my @mor = map { [ $rom{$_} => $_ ] } sort { $rom{$b} <=> $rom{$a} } keys %rom;
 
-use Data::Dump qw/dd/;
-dd @mor;
-
 say roman_expr(join ' ', @ARGV) and exit if @ARGV;
 
 # Perform arbitrary expressions using Roman numerals
-- 
cgit