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