From 3db31768013c96c621b3302f80e7aef36d3209c7 Mon Sep 17 00:00:00 2001
From: Lubos Kolouch <lubos@kolouch.net>
Date: Sat, 27 Nov 2021 21:44:30 +0100
Subject: Challenge 140 Task 2 LK Perl

---
 challenge-140/lubos-kolouch/perl/ch-2.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 challenge-140/lubos-kolouch/perl/ch-2.pl

diff --git a/challenge-140/lubos-kolouch/perl/ch-2.pl b/challenge-140/lubos-kolouch/perl/ch-2.pl
new file mode 100644
index 0000000000..b4bddb72c0
--- /dev/null
+++ b/challenge-140/lubos-kolouch/perl/ch-2.pl
@@ -0,0 +1,24 @@
+use strict;
+use warnings;
+
+sub get_k_element {
+    my %what = @_;
+
+    my @result;
+    for my $i ( 1 .. $what{'i'} ) {
+        for my $j ( 1 .. $what{'j'} ) {
+            push @result, $i * $j;
+        }
+    }
+
+    @result = sort { $a cmp $b } @result;
+    return $result[ $what{'k'} - 1 ];
+
+}
+
+use Test::More;
+
+is( get_k_element( ( "i" => 2, "j" => 3, "k" => 4 ) ), 3 );
+is( get_k_element( ( "i" => 3, "j" => 3, "k" => 6 ) ), 4 );
+
+done_testing;
-- 
cgit