for ( my $i =0; $i <=$#array1; $i ++)  {
foreach my $key (sort keys %{$array2[$i]}){
if ($array1[$i]{$key} ne  $$array2[$i]{$key}) {
print "changes";
}
}
}