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";