use vars qw/ %in $dbh $sql $sth $UIDholder $indexmonths $indexyears @UIDarray @montharray @distinctmontharray @yeararray @distinctyeararray $q $rv $postmonth $postyear $monthnumber $postby $title $teaser @AoTitle @AoTeaser $content $postdate/;