open (FILE, "+</cygdrive/c/temp/passwd.oftappp1.hpux");
my (@values,$name,$uid,$gid,$comments) = ();
foreach my $file (<FILE>) {
    ($name)     = (split /:/ , $file) [0];
    ($uid)      = (split /:/ , $file) [2];
    ($gid)      = (split /:/ , $file) [3];
    ($comments) = (split /:/ , $file) [4];
    @values     = ($name,$uid,$gid,$comments);
    print join ("\t", @values,"\n");
}