my @elements = ('A'..'Z', 0..9);
    my $regkey = join '', map { $elements[ rand @elements ] } 1..15;