Select Code to Download

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

$stats{ x() }++

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

use strict;
use warnings;
...
my %stats;
$stats{ scalar( my @r = x() ) }++ for  1 .. 1000;
print Dumper( \%stats );

$VAR1 = {
          '6' => 81,
...
          '1' => 123,
          '10' => 117,
          '5' => 108