my( @pageorder, %pages, %validators );
for(
    ["welcome", \&page_welcome, undef],
    ["address", \&page_address, \&validate_address],
    ["recipients", \&page_recipients, \&validate_recipients],
    ["preview", \&page_preview, undef],
    ["done", \&page_done, undef],
) {
    push @pageorder, $_->[0];
    $pages{$_->[0]}= $_->[1];
    $validators{$_->[0]}= $_->[2];
}