while (($state, $sub) = each %States) {
    $sub->( $page eq $state );
}