A couple of comments:

  1. You added strict at the top, but did not add variable declarations (my). Therefore, it seems unlikely you tried to run your code before posting it. This is poor form as it shows a lack of effort on your part.
  2. You require my before @sorted = ... and $frmType = ... to fix the above.
  3. You did not fix the issue I pointed out in item 3 above -- your print statements are located inappropriately for your desired output. If you fix that, you don't need your second filtering stage. Each of your foreach loops should look something like: 
                foreach(@sorted)
            {
            my $frmType = substr $_, 1, 4;
            
            if ($frmType eq "Q569")
                {
                print OUT "$_";
                $count ++;
                }
            }
            print OUT "There were $count Quarterly 569 runs\n";

    [download]
    where I have attempted to follow your existant style.

In reply to Re^7: Sorting by value?? by kennethk
in thread Sorting by value?? by Homerhrdz

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.