use 5.38.0;

package Part1;

use List::AllUtils qw/ /;

sub solution_1 ($input) {
    ...;
}

1;