my @diffs = diff( ... );
while( @diffs ) {
    my( $x, $y ) = ( pop @diffs, pop @diffs );
    ## use em.
}