use strict;                

my $randstring;
my @testarray = ( 'a' .. 'z', 'A' .. 'Z', '0' .. '999' );

$randstring .= splice(@testarray, rand @testarray, 1)
  while @testarray;

print "$randstring\n";