sub DumpAccounts {
   my $var;
   my @SYS = ('GRP', 'JAG', 'CIS', 'MST', 'GCG');
   my %POvars = (
         'GRP' => ['ppo', 'userid', 'email', 'gwpo', 'gwdomain'],
         'JAG' => ['ppo', 'userid', 'email', 'jagexcept'],
         'CIS' => ['ppo', 'userid', 'email'],
         'MST' => ['ppo', 'userid', 'email'],
         'GCG' => ['ppo', 'userid', 'email']
      );
   foreach my $ssn (sort keys %accounts) {
      print "$ssn ";
      foreach my $sys (@SYS) {
         if (exists $accounts{$ssn}{$sys}) {
            foreach $var ( @{ $POvars{$sys} }) {
               print $accounts{$ssn}{$sys}{$var} . " ";
            }
            print "\n" . " " x 10;
         }
      }
      print "\n";
   }
}