@array = 0 .. 9;;

sub x{ return @array[ 0 .. int( rand @array ) ]; };;

$stats{ scalar( x() ) }++ for  1 .. 1000;;

pp \%stats;;
{ "0" => 90, 1 => 103, 2 => 126, 3 => 99, 4 => 101, 5 => 101, 6 => 88, 7 => 97, 8 => 105, 9 => 90 }