use 5.38.0; package Part2; use Part1; use List::AllUtils qw/ /; sub solution_2 ($input) { ...; } 1;