#!/usr/bin/perl -w

use strict;

##</code><code>##

# ... after declaring and loading values into @RAM and @RAM1...

my %inde;

my $rownum = 0;
for my $row ( @RAM ) {
    my $row1 = $RAM1[$rownum];
    my $colnum = 0;
    for my $col ( @$row ) {
        if ( $col ne $row1->[$colnum] ) {
            printf( "Mismatch at row %d col %d: RAM=%s  vs. RAM1=%s\n",
                    $rownum, $colnum, $col, $row1->[$colnum] );
            $inde{$rownum}{$colnum} = sprintf( "%17s | %-17s", $col, $row1->[$colnum] );
        }
        $colnum++;
    }
    $rownum++;
}

# do something with %inde...