<: @years = (2001, 2002, 2003, 2004, 2005); foreach my $y (sort @years) { if ($y != $(year)) { printf ' %d
', $y, $y; } else { printf ' %d
', $y; } } :>

# Local variables: # mode: indented-text # mode: auto-fill # end: