Remove List::Util and Data::Dump dependencies

1 files changed, 9 insertions, 2 deletions

diff --git a/challenge-095/paulo-custodio/perl/ch-2.pl b/challenge-095/paulo-custodio/perl/ch-2.pl
index c2cf2ae54c..b3eace4cb3 100644
--- a/challenge-095/paulo-custodio/perl/ch-2.pl
+++ b/challenge-095/paulo-custodio/perl/ch-2.pl
@@ -27,13 +27,20 @@ use 5.030;
 
 {
     package Stack;
-    use List::Util;
 
     sub new     { my($class) = @_;      return bless [], $class; }
     sub push    { my($self, $n) = @_;   push @$self, $n; }
     sub pop     { my($self) = @_;       pop  @$self; }
     sub top     { my($self) = @_;       return $self->[-1]; }
-    sub min     { my($self) = @_;       return List::Util::min(@$self); }
+    sub min     { my($self) = @_;       return min_(@$self); }
+	
+	sub min_ {
+		my($min, @a) = @_;
+		for (@a) {
+			$min = $_ if $min > $_;
+		}
+		return $min;
+	}
 }
 
 my $stack = Stack->new;