##
$stats{ x() }++
##
##
$stats{ scalar( my @r = x() ) }++
##
##
use strict;
use warnings;
use Data::Dumper;
my @array = 0 .. 9;
sub x { return @array[ 0 .. int(rand @array) ] }
my %stats;
$stats{ scalar( my @r = x() ) }++ for 1 .. 1000;
print Dumper( \%stats );
##
##
$VAR1 = {
'6' => 81,
'3' => 110,
'7' => 84,
'9' => 94,
'2' => 96,
'8' => 98,
'4' => 89,
'1' => 123,
'10' => 117,
'5' => 108