foreach my $secname (sort @sections) 
{
    print "section : $secname\n";
    foreach (sort keys %Config) 
    {
        $var = grep { !/\b[A-Za-z0-9.].*[.]/ } @arr;
        if($secname == $var)
        {
            print "$secname\n";
        }
        else
        {
            print "false\n";
        }

        #compare 'secname' vs 'dialer onboard'.xxx
        #print "$_ : $Config{$_}\n";

    }
}