<: @years = (2002, 2003); foreach my $y (sort @years) { printf '

HCT %d', $y, $y if ($y != $(year)); } :> # Local variables: # mode: indented-text # mode: auto-fill # end: