#! perl -slw
use strict;
use Data::Dump qw[ pp ];

our $N //= 1e6;
our $L //= 50;

my %counts;
++$counts{ int( rand $L ) } for 1 .. $N;

pp \%counts;