my $stats = Statistics(qw/ProcStats MemStats NetStats DiskStats DiskUsage/);

sub Statistics {
  my %param = map +($_ => undef), @_;
  my %stats;
  if (exists $param{ProcStats}) {
    $stats{ProcStats} = ProcStats();
  } elsif (exits $param{NetStats}) {
    $stats{NetStats} = NetStats();
  } # usw ...
  return \%stats;
}