--
$you = new YOU;
honk() if $you->love(perl)

First, process all the delete instructions, starting at the end. Then, process all the insert instructions, starting at the beginning.

I tested that by hand and it came out properly.

here's my code for it:

#!/usr/bin/perl -w

use strict;

use Data::Dumper;

use Algorithm::Diff qw(diff);

my @orig = qw(a b c e h j l m n p);
my @rev = qw(b c d e f j k l m r s t);

print "Original:\t@orig\n";
print "Revision:\t@rev\n";

my $diff = diff \@orig, \@rev;

my @adds;

for my $hunk (reverse @$diff)
{
    for my $change (reverse @$hunk)
    {
        if($change->[0] eq "-")
        {
            # process deletions
            splice @orig, $change->[1], 1;
        }
        elsif ($change->[0] eq "+")
        {
            # defer handling additions
            unshift @adds, $change;
        }
    }
}

# process additions
splice @orig, $_->[1], 0, $_->[2] for @adds;

print "Patched:\t@orig\n";
[download]