From 8a7f0f41a09880d7271435a87b8a320975cb7eaa Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Tue, 17 Jun 2025 22:23:43 -0400
Subject: Perl code for challenge 2

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

diff --git a/challenge-326/walt-mankowski/perl/ch-2.pl b/challenge-326/walt-mankowski/perl/ch-2.pl
new file mode 100644
index 0000000000..434f1f5520
--- /dev/null
+++ b/challenge-326/walt-mankowski/perl/ch-2.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+use v5.40;
+
+my @output;
+
+for (my $i = 0; $i < @ARGV; $i += 2) {
+    my $cnt = $ARGV[$i];
+    my $val = $ARGV[$i+1];
+    push @output, ($val) x $cnt;
+}
+
+printf "(%s)\n", join ", ", @output;
-- 
cgit