It's not clear what you're trying to accomplish, and your data structures are connected in a strange way that makes it hard to tell. You wrote at the top that you're trying to arrange a two-column file into four columns, but the sample code seems to have no relation to that task.

The code itself has little to guide the reader, and of the two comments, this one is incorrect: @total = (); #this is an array of arraysThe way you use it, it's an array of scalars.

As for the memory problem itself, this line is likely to be the culprit:  push @{$RandHapl{$_}}, $temp;This is the first time %RandHapl appears in your code, and you're pushing random elements out of other arrays into arrays hanging from it.

I say "likely to be" because I'm not sure. I also don't know how to tell you to fix it, because I don't know what you're trying to do. If you can add a reply to your original note with some details about the task at hand, you're much more likely to get a good answer.

Update
Added some clarification.

In reply to Re: memory leak by VSarkiss
in thread memory leak by Juba

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.