my $stats = Statistics(
  ProcStats => 1,
  MemStats => 1,
  NetStats => 1,
  DiskStats => 1,
  DiskUsage => 1,
  UnbekannteOption => 1,
);

sub Statistics {
  my %param = @_;
  my $stats = {};

  my @KnownOptions = qw/ProcStats MemStats NetStats DiskStats DiskUsage/;

  foreach my $opt (@KnownOptions) {
     no strict 'refs';
     $stats{$opt} = &$opt() if $param{$opt};
  }

  return $stats;
}