a b c   e h j   l m n p
  b c d e f j k l m r s t


##</code><code>##

 [ 
   [ [ '-', 0, 'a'  ] ],

   [ [ '+', 2, 'd'  ] ],

   [ [ '-', 4, 'h'  ] , 
     [ '+', 4, 'f'  ] ],

   [ [ '+', 6, 'k'  ] ],

   [ [ '-', 8, 'n'  ], 
     [ '-', 9, 'p'  ], 
     [ '+', 9, 'r'  ], 
     [ '+', 10, 's' ], 
     [ '+', 11, 't' ],
   ]
]


##</code><code>##

# Suppose @i1 and @i2 contain the slurped contents
# of two input files.
foreach my $hunk (Algorithm::Diff::diff(\@i1, \@i2))
{
    print "---\n";
    foreach my $element (@$hunk)
    {
        printf "line %d %s %s",
            $element->[1]+1,
            ($element->[0] eq '+'? '>' : '<'),
            $element->[2];
    }
}