foreach(sort keys %switches) {
  ${$_}= "$switches{$_}";
  print " * \$$_ is switched \"$switches{$_}\"" if $D;

  if ($switches{$_} eq '1') { print " (ON)" if $D;  }
  if ($switches{$_} eq '0') { print " (OFF)" if $D; }
  print "\n" if $D;
}