use 5.36.0; use Test2::V0; use Part1 qw/ part1 $sample /; is part1($sample) => 'CMZ';