The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More tests => 2;

BEGIN { use_ok('List::Vectorize') }

my $x = ["a", "b", "c", "d"];
my $y = ["b", "c", "d", "e"];

my $m = match($x, $y);

is_deeply($m, [1, 2, 3]);