my @menu_options = ('home', 'donate', 'news', 'docs', 'download', 'gallery', 'samples', 'users', 'developers', 'about'); my $items = @menu_options; my $count = 1; print qq{
Navigation: }; my $style = ''; foreach my $menu_item (@menu_options) { $style = qq{style="background-color: #9943ac;"} if ($action eq $menu_item && $action =~ /docs/); $style = qq{style="background-color: #d8402b;"} if ($action eq $menu_item && $action =~ /download/); $style = qq{style="background-color: #ab0;"} if ($action eq $menu_item && $action =~ /users/); $style = qq{style="background-color: #6fab87;"} if ($action eq $menu_item && $action =~ /developers/); print qq{\t\t$menu_item}; print " |" if ($count < $items); print "\n"; $count++; } print "\t
\n";