#a plethora of my's ...no longer so baffling

my (@contents, @aoa, @ctags, @ctagarray, @aoac, @headc, @contentc, @fontc, @scalarclose);
my ($ctag, $font, $head, $content, $val, $newlength, $count, $scalarclose, $headc, $fontc, $contentc, $i);