Solution for challenge 1 for Avery Adams for week 217

2 files changed, 27 insertions, 0 deletions

diff --git a/challenge-217/avery-adams/blogs.txt b/challenge-217/avery-adams/blogs.txt
new file mode 100644
index 0000000000..de43b255fe
--- /dev/null
+++ b/challenge-217/avery-adams/blogs.txt
@@ -0,0 +1,2 @@
+https://blogs.perl.org/users/oldtechaa/2023/05/perl-weekly-challenge-217---flattening-the-matrix.html
+https://dev.to/oldtechaa/perl-weekly-challenge-217-flattening-the-matrix-4mk3
diff --git a/challenge-217/avery-adams/perl/ch-1.pl b/challenge-217/avery-adams/perl/ch-1.pl
new file mode 100644
index 0000000000..2bb48fd55f
--- /dev/null
+++ b/challenge-217/avery-adams/perl/ch-1.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use strict;
+use v5.24;
+
+my @matrix1 = ([3, 1, 2], [5, 2, 4], [0, 1, 3]);
+my @list1;
+
+foreach (@matrix1) {map {push @list1, $_} @{$_}}
+@list1 = sort @list1;
+say $list1[2];
+
+my @matrix2 = ([2, 1], [4, 5]);
+my @list2;
+
+foreach (@matrix2) {map {push @list2, $_} @{$_}}
+@list2 = sort @list2;
+say $list2[2];
+
+my @matrix3 = ([1, 0, 3], [0, 0, 0], [1, 2, 1]);
+my @list3;
+
+foreach (@matrix3) {map {push @list3, $_} @{$_}}
+@list3 = sort @list3;
+say $list3[2];