From c78234ec2918668b463f9f453069563ec8f80887 Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Wed, 25 Jun 2025 21:33:54 -0400
Subject: perl code for challenge 1

---
 challenge-327/walt-mankowski/perl/ch-1.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 challenge-327/walt-mankowski/perl/ch-1.pl

diff --git a/challenge-327/walt-mankowski/perl/ch-1.pl b/challenge-327/walt-mankowski/perl/ch-1.pl
new file mode 100644
index 0000000000..3dd6050a0a
--- /dev/null
+++ b/challenge-327/walt-mankowski/perl/ch-1.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+use v5.40;
+
+# make a hash of all the possible values from 1 to @ARGV
+my %missing = map { $_ => 1 } 1..@ARGV;
+
+# delete any elements in @ARGV
+delete $missing{$_} for @ARGV;
+
+# print out any remaining keys
+printf "(%s)\n", join ", ", sort { $a <=> $b } keys %missing;
-- 
cgit