#perl5

my @array = (1) x 5;