Select Code to Download

my @pages = (
  welcome => \&page_welcome,
...
);
my %pages= @pages;
@pages= do { my $key= 0; grep { $key= !$key } @pages };

my( @pageorder, %pages, %validators );
for(
...
    $pages{$_->[0]}= $_->[1];
    $validators{$_->[0]}= $_->[2];
}

use mapcar;
my( @pageorder, %pages, %validators );
...
    @pages{@$keys}= @$page;
    @validators{@$keys}= @$valid;
}