for my $org (keys %OrgEmp) {
    open  OUT, '>', 'Group' . $org or die $!;
    print OUT "$_\n" for @{ $OrgEmp{$org} };
    close OUT;
}