print join( '|', %{{ }} = (1)x100 );

##</code><code>##

use strict;
print join '|', %{{ 'X' => 1, 'Y' => 1 }} = (1)x100;

##</code><code>##

my %x;
my @x = (1) x 100;
print join '|', %x = @x;