# loop_eq( \@array1, \@array2 )
sub loop_eq 
{
    return 0 if @$_[0] != @$_[1];
    for(0..$#{$_[0]}) {
      return 0 if $_[0]->[$_] ne $_[1]->[$_]
    }
    return 1;
}