#!/usr/bin/perl
use warnings;
use strict;
use Config::General;

my $conf = Config::General->new("fh.cfg");
my %config = $conf->getall;
my @myarray = (); 
while( my( $key, $value ) = each %config ){
    print "$key: $value\n";
    if (ref($value) eq 'ARRAY'){
        @myarray = @$value;
        foreach (@myarray) {
            print "$_\n";
        }   
    }   
}