From 9e83bf13b685c12f89872f75796da94210c0dbc2 Mon Sep 17 00:00:00 2001
From: Adam Russell <ac.russell@live.com>
Date: Sat, 17 Dec 2022 13:55:46 -0500
Subject: updated Perl solution to part 2

---
 challenge-195/adam-russell/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-195/adam-russell/perl/ch-2.pl b/challenge-195/adam-russell/perl/ch-2.pl
index 15a47ab5a5..143a0578aa 100644
--- a/challenge-195/adam-russell/perl/ch-2.pl
+++ b/challenge-195/adam-russell/perl/ch-2.pl
@@ -6,7 +6,7 @@ use v5.34;
 # than one even numbers then return the smallest even integer. 
 # For all other case, return -1.
 ## 
-sub frequency{
+sub most_frequent_even{
     my @list = @_;
     @list = grep { $_ % 2 == 0 } @list; 
     return -1 if @list == 0;  
-- 
cgit