though I don't particularly care for printing as you go, and like the hash idea above, this was my attempt at exactly what you proposed (tested lightly, meaning it compiles, and may not work as you wish): 
mkdir "reports", 0755 || warn "Cannot make reports director: $!";
chdir ("reports") || die "couldn't change to directory : $!";

# tried to quickly put these together into a hash,
# but made for more code than necessary
# the way it stands now, @patterns and @files should have
# the same number of (corresponding) elements

my @patterns = (qr/ABC/, qr/DEF/, qr/GHI/);
my @files = map { local *FH; open(FH, '>', 'group' . $_); *FH } qw(A B
+ C);

foreach my $n (keys %emp) {
   for my $index (0..$#patterns) {
      if ($emp{$n}{'Org'} =~ $patterns[$index]) {
         local *FH = $files[$index];
         print FH $emp{$n}{'Emp'} . "\n";
      }
   }
}

[download]

In reply to Re: efficiently printing to 30 files by perlguy
in thread efficiently printing to 30 files by tbone

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.