Select Code to Download

$navigation_map = {
    first_page       => {
...
        NEXT     => '',
    },
};

$navigation_map = [qw(first_page second_page third_page fourth_page)];

package List::Navigator;

...
    }
    bless $data, $class;
}

my $nav_list = [qw( first_page second_page third_page fourth_page )];

my $navigation_map = List::Navigator->new( $nav_list );