1 files changed, 9 insertions, 0 deletions
diff --git a/challenge-246/wlmb/perl/ch-1.pl b/challenge-246/wlmb/perl/ch-1.pl
new file mode 100755
index 0000000000..dc73524925
--- /dev/null
+++ b/challenge-246/wlmb/perl/ch-1.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 246
+# Task 1:  6 out of 49
+#
+# See https://wlmb.github.io/2023/12/03/PWC246/#task-1-6-out-of-49
+use v5.36;
+my %n=map{$_=>1} 1..49;
+my @n=keys %n;
+say join " ", @n[0..5];