while (1){

my @matrixUsers = (a..z,A..Z,0..9);
my $matrix = "";
while (length($matrix) < 15){
$matrix .= $matrixUsers[int rand(@matrixUsers)];
}