From ad68e9e4012a134f307bd5d8c59249b8e66d4ab1 Mon Sep 17 00:00:00 2001
From: Fourand <4randrofficial@gmail.com>
Date: Fri, 18 Oct 2019 15:12:10 +0500
Subject: add ch-2.pl

---
 challenge-030/vyacheslav-volgarev/perl5/ch-2.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 challenge-030/vyacheslav-volgarev/perl5/ch-2.pl

diff --git a/challenge-030/vyacheslav-volgarev/perl5/ch-2.pl b/challenge-030/vyacheslav-volgarev/perl5/ch-2.pl
new file mode 100644
index 0000000000..978846d43a
--- /dev/null
+++ b/challenge-030/vyacheslav-volgarev/perl5/ch-2.pl
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use v5.10;
+
+my @numbers;
+
+for my $first ( 1..10 ) {
+
+	for my $second (1..10) {
+		my $third = 12 - $first - $second;
+		push @numbers, join ", ", sort ( $first, $second, $third ) if $third > 0;
+	}
+}
+my %uniq;
+$, = ";\n";
+say sort grep !$uniq{$_}++, @numbers;
-- 
cgit