for( my $n = 0; $n < scalar @loop_keys; ++$n ) {
        if( $loop_keys[$n] ne $loop_vals[$n] ) {
            die;
        }
    }