sub read_the_config {
   my ($file) = @_;
   my @lines;
   my $cfg_fh;
   open($cfg_fh, "<$file") || log_error("Problem reading $file - $!");
   while (<$cfg_fh>) {
   ...
   return \@lines;
}