Select Code to Download

my %dispatch = (
   home   => \&default,
...
   my ($action, $dbh) = shift;
   ...
}

my %dispatch = (
   (map { $_ => \&default } qw(
...
   samp => sub { \&samples($dbh) },
   ...
);