The spiffy Algorithm::Diff module should help you out here (at least with the differences)

my @AoA = (
        [ "AAA", "BUY", "98", "0" ],
        [ "BBB", "SEL", "27", "1" ],
        [ "FFF", "BUY", "43", "4" ],
        [ "AAA", "SEL", "98", "0" ],
        [ "CCC", "SEL", "98", "0" ],
);

use strict;
use warnings;

use Algorithm::Diff qw(diff);
use Data::Dumper;

for (0 .. $#AoA - 1) {
    print Dumper( diff(@AoA[$_, $_ + 1]) );
}
[download]

HTH

_________
broquaint