Chal 1 empty with tests

1 files changed, 6 insertions, 1 deletions

diff --git a/challenge-080/lubos-kolouch/perl/ch_1.pl b/challenge-080/lubos-kolouch/perl/ch_1.pl
index 0b712a913a..e19e7bf626 100644
--- a/challenge-080/lubos-kolouch/perl/ch_1.pl
+++ b/challenge-080/lubos-kolouch/perl/ch_1.pl
@@ -14,16 +14,21 @@
 
 use strict;
 use warnings;
+use List::Util qw/min/;
+use feature qw/say/;
 
 sub get_smallest_missing {
     my $arr = shift;
 
+    # map the arr to hash
+    say min( grep { $_ > 0 } @$arr);
+
 }
 
 use Test::More;
 
 is(get_smallest_missing([5, 2, -2, 0]), 1);
-is(get_smallest_missing([1, 8, -1]), 1);
+is(get_smallest_missing([1, 8, -1]), 2);
 is(get_smallest_missing([2, 0, 1]), 1);
 
 done_testing;