#!/usr/bin/perl
use FindBin qw($Bin);

use lib "$Bin/";

use strict;

my @idsMap;

my @h_item_selector;

my $cnt = 1;


for(my $i = 1; $i < 50; $i++)
{
    
    my $start = "aaa";
    
    for(my $j = 1; $j < 250000; $j++)
    {
        my $val = "$cnt $i $j $start";
        
        
        $h_item_selector[$i] -> {$val} = $cnt;
        
        $cnt++;
        $start++;
    }
    
}

    undef (@h_item_selector);

    print "did undef of array\n";

    sleep 10;
    
    print "alocating string array\n";
    
    my $g_freeSelectorIndex = 10000000;
    
    for(my $i = 0; $i < $g_freeSelectorIndex;$i++)
    {
        if( ($i % 10000) == 0)
        {
            print "Processing $i element\n";
        }
        $idsMap[$i] = -1;
        if( ($i % 10000) == 0)
        {
            print "Processed $i element\n";
        }
    }