sub cfgToARRAY { my ($cfgfile) = @_ ; open(OUTPUT, "<", $cfgfile) or die "Can't open $cfgfile: $!" ; my $input ; my @array; while ($input = ) { chomp $input ; push (@array, $input) ; } close(OUTPUT) ; return(@array) ; } ### my @TEST = cfgToARRAY("/informatica/scripts/arrayDisplayCDCWFs.cfg");