while ( $cnt < $howmany )
     {  my $st = $cnt % 58;
        my $chr = chr( 122-$st );
        $key = "$chr-$cnt";