1 2 3 4 5 6 7 8
<% my($item, $url, @html); while (@_) { ($item, $url) = splice(@_,0,2); push @html, qq!<A HREF="$url">$item</A>!; } %> <%= join(' | ', @html) %>