sub test_match_subroutine { my ( $item, $possible_matches ) = @_; foreach my $test_case ( @$possible_matches ) { return 1 if is_a_match($item, $test_case); } return 0; }