updated Perl solution to part 2

1 files changed, 1 insertions, 1 deletions

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;