Select Code to Download

sub balance_by {
  my $self = shift;
...
  }
  return $self->{'balance_by'};
}

my %valid_params; undef @valid_params{qw(foo bar)};
...
(defined $entry and exists $valid_params{$entry})
...