for(my $j=1;$j<=$in[$i];$j++){  #$j is the actual no. of sector
+s.
            my $num=($in[$i+12]*$MaxAgc0);
            push @Attn, $num/$in[$i+10];
        }

[download]

It's not clear to me what the @Attn array is supposed to be used for. As the number of iterations of the loop depends on the data (i.e. $in[$i] — which you haven't specified), it's not clear how many items are actually pushed onto the array.  Also, all values pushed in one run of the loop seem to be same, because $j is never used in the computation. And then later, you index @Attn with multiples of 14 ...

Questions over questions — at least for me :)   Could you elaborate a bit more?

In reply to Re: Can you help profile this? by Eliya
in thread Can you help profile this? by Fighter2

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.