sub printSettings {
    my @groups = shift;
    foreach my $table (@groups) {
        foreach my $info (@$table) { 
            my $cnt = 1;

            print "=" x 60, "\n";
            print "     $info->[0]", " " x 20,  "\n";
            print "=" x 60, "\n";
    
            foreach my $key (sort keys %{$info->[1]}) { 
                printf "%5s.   %-25s %-5s $info->[1]{$key}\n", $cnt, $key, "=>"; 
                $cnt++;  
            }
        }
    }
}

sub viewTheme {
    #print "[(a)ll, (b)ase, (m)enu, tag(l)ist, (o)other]{Enter to quit}:   ";
    #chomp (my $item = <STDIN>); 
    my $item = shift;
    my $base = ["Base Elements", \%theme_base]; 
    my $taglist = ["Taglist Elements", \%theme_taglist];
    my $menu = ["Menu Elements", \%theme_menu];
    my $other = ["Other Elements", \%theme_other];

    return unless ($item);
    return [$base] if ($item =~ /^\s*(?:b|base)\s*$/i);
    return [$taglist] if ($item =~ /^\s*(?:l|taglist)\s*$/i);
    return [$menu] if ($item =~ /^\s*(?:m|menu)\s*$/i);
    return [$other] if ($item =~ /^\s*(?:o|other)\s*$/i);
    if ($item =~ /^\s*(?:a|all)\s*$/i) {
        return [$base, $taglist, $menu, $other];
    }
    say "Invalid Entry:   $item\n";
    viewTheme();
}

##</code><code>##

============================================================
     Base Elements                    
============================================================
    1.   theme.bg_focus            =>    #000000
    2.   theme.bg_minimize         =>    #ff0000
    3.   theme.bg_normal           =>    #000000
    4.   theme.bg_urgent           =>    #ffffff
    5.   theme.border_focus        =>    #55B043
    6.   theme.border_marked       =>    #91231c
    7.   theme.border_normal       =>    #000000
    8.   theme.border_width        =>    2
    9.   theme.fg_focus            =>    #55B043
   10.   theme.fg_minimize         =>    #ffffff
   11.   theme.fg_normal           =>    #ffffff
   12.   theme.fg_urgent           =>    #ffffff
============================================================
     Taglist Elements                    
============================================================
    1.   theme.taglist_bg_focus    =>    #000000
    2.   theme.taglist_bg_normal   =>    #000000
    3.   theme.taglist_fg_focus    =>    #55B043
    4.   theme.taglist_fg_normal   =>    #000000
============================================================
     Menu Elements                    
============================================================
    1.   theme.menu_bg_focus       =>    #55B043
    2.   theme.menu_bg_normal      =>    #000000
    3.   theme.menu_border_color   =>    #000000
    4.   theme.menu_border_width   =>    5
    5.   theme.menu_fg_focus       =>    #000000
    6.   theme.menu_fg_normal      =>    #55B043
    7.   theme.menu_height         =>    15
    8.   theme.menu_width          =>    150
============================================================
     Other Elements                    
============================================================
    1.   theme.font                =>    sans-serif 8: bold
    2.   theme.wallpaper           =>    /usr/share/awesome/themes/wallpapers/ireck.png