my $q[ $cnt ]

##</code><code>##

eval(