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

sub Statistics {
  my %param = @_;
  my %stats;
  if ($param{ProcStats}) {
    $stats{ProcStats} = ProcStats();
  } elsif ($param{NetStats}) {
    $stats{NetStats} = NetStats();
  } # usw ...
  return \%stats;
}