diff --git a/day04.pl b/day04.pl
index c2969cf..e395723 100644
--- a/day04.pl
+++ b/day04.pl
@@ -29,7 +29,7 @@ my $mas_cross_count = 0;
 for my $y (0 .. $#wordgrid) {
 	for my $x (0 .. $#{$wordgrid[$y]}) {
 		$xmas_count += grep { search_xmas([$x, $y], $_)} @directions;
-		$mas_cross_count++ if search_max_cross([ $x, $y ]);
+		$mas_cross_count++ if search_mas_cross([ $x, $y ]);
 	}
 }
 
@@ -51,7 +51,7 @@ sub search_xmas {
 	return 1;
 }
 
-sub search_max_cross {
+sub search_mas_cross {
 	my $start = shift;
 	return 0 if $wordgrid[$start->[1]][$start->[0]] ne "A";
 	return 0 if (