% foreach my $l (@list) { <% $l %> % } <%init> my %files = ( "index.html.mas" => 1, "gm_dictionary.html.mas" => 1, "ff_extensions.html.mas" => 1, "review_beyondjava.html.mas" => 1, "review_mythicalmanmonth.html.mas" => 1, "minute_guide_cvs.html.mas" => 1, "switch_dvorak.html.mas" => 1, "create_lamp.html.mas" => 1, "perl_packages.html.mas" => 1, "mechanize_hotjobs.html.mas" => 1, "submit_site.html.mas" => 1, ); my @list; my $site = 'http://www.yuonlamp.com/'; foreach my $file (keys %files) { my $f = $file; $f =~ s/\.mas$//; $f = $site . $f; push @list, $f; } % # vim: filetype=mason