Select Code to Download

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

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

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