sub cfgToARRAY {                
    my ($cfgfile, $array) = @_ ;
    open(OUTPUT, "<", $cfgfile) or die "Can't open $cfgfile: $!" ;
    my $input ;
    while ($input = <OUTPUT>) {
       chomp $input ;
       push (@$array, $input) ;
    }
    close(OUTPUT) ;
    return(@$array) ;
}
1 ;  

##</code><code>##

cfgToARRAY("/informatica/scripts/arrayDisplayCDCWFs.cfg", "TEST") ;