use Algorithm::HowSimilar 'compare';
my ( $av_similarity,
     $sim_ary1_to_ary2,
     $sim_ary2_to_ary1,
     $ref_ary_matches,
     $ref_ary_in_ary1_but_not_ary2,
     $ref_ary_in_ary2_but_not_ary1
   ) = compare( [ 1,2,3,4 ], [ 3,4,5,6,7 ] );