Select Code to Download

            foreach(@sorted)
            {
            my $frmType = substr $_, 1, 4;
...
                }
            }
            print OUT "There were $count Quarterly 569 runs\n";