sub printSettings { my @groups = shift; my $sep = "=" x 60; foreach my $table (@groups) { foreach my $info (@$table) { my $cnt = 1; print <[0] $sep EOF print map { sprintf "%5s. %-25s %-5s $info->[1]\n", $cnt++, $_;} sort keys {$info->[1]}; } } }