This is completely hackish but loop for x number of times (12, 100?) before using the values of rand:

$x = int rand( 100 ) for ( 1 .. 12 );
$x = 0;
[download]

update: Or better yet. After you have the array filled, shuffle it as described in perlfaq4. -derby