add ch-2.pl

1 files changed, 16 insertions, 0 deletions

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;