use Algorithm::Diff qw/diff/;

    my $ref1 = [ split //, "foo bar" ];
    my $ref2 = [ split //, "foo baz" ];

    my @diffs = diff $ref1, $ref2;