$stats{ scalar( x() ) }++

##</code><code>##

$stats{ x() }++

##</code><code>##

$stats{ scalar( my @r = x() ) }++

##</code><code>##

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 );

##</code><code>##

$VAR1 = {
          '6' => 81,
          '3' => 110,
          '7' => 84,
          '9' => 94,
          '2' => 96,
          '8' => 98,
          '4' => 89,
          '1' => 123,
          '10' => 117,
          '5' => 108