#this line is problematic

   @$scalarclose[$count]=map {$_}, @ctagarray;

##</code><code>##

   @$scalarclose[$count]=[map {$_}, @ctagarray];