use vars qw/ %in $dbh $sql $sth $UIDholder $indexmonths $indexyears @U
+IDarray @montharray @distinctmontharray @yeararray @distinctyeararray
+ $q $rv $postmonth $postyear $monthnumber $postby $title $teaser @AoT
+itle @AoTeaser $content $postdate/;
[download]

isn't that enuf?

No. Declaring them makes them suitable for use, but only if they are assigned something, they hold something: a scalar, reference, whatever. The error message tells you of not being enough references at some line, so you should check if the variables in question in fact hold references at that point. This can be done with the operator ref.

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}