Help for this page

Select Code to Download

Select or download this

my %groupMap =
(
...
  'DEF' => 'groupB.txt',
  'GHI' => 'groupC.txt' # and so on and so on
)

Select or download this


foreach my $n (keys %emp)
...
    print OUTFILE $emp;
    close OUTFILE;
}