my $q[ $cnt ]