<: %years = (2001 => 'CLT3', 2002 => 'CLT4', 2003 => 'CLT5', ); foreach my $y (sort keys %years) { printf '

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