@array = (0..9,a..z,A..Z);
srand;
foreach (1..5) 
{    
	$rand = int(rand scalar(@array));    
	push (@selected, $rand);
}