/var/tmp/passwd.hostname1.platform

nguyenhe 1929 20 Henry Nguyen,555-555-555
bjose 1990 20 Bobby Jose,x3338
....
....
....

/var/tmp/passwd.hostname2.platform

vjain 2098 20 Vineet Kumar Jain, offshore
llai 2122 20 Levius Lai
bjose 1995 20 Bobby Jose,x3338
...
...
...

##</code><code>##

use strict;
use warnings;
use diagnostics;

my $awksh  = qq(/home/awk_parse_passwd.ksh);
my $log    = qq(/tmp/uid_ck.log);
my ($k,$v,$element,$line) = 0;
my (@keys,@values,@glob)  = ();
my (%hosts,%mcg_hosts)    = ();

open (LOG, ">>$log") or warn "file: '$log' did not open $!";
open (AWKSH, "$awksh -|") or die 
  "unable to spawn '$awksh' $!";
     
     { local $/ = 'undef';
       foreach $line (<AWKSH>) {
           (@glob) = glob("/home/passwd.*");
       }
     }

     foreach $element (@glob) {
         ($keys[$k++]) = $element =~ m|\.(\w+\.\w+)\z|ig;
     }