use strict;
use warnings;
use Data::Dumper;


my @x;
@x[0..3] = map {1}0..3;  # this map returns a list of 1's (4 elements)

print Dumper(\@x);
__END__
$VAR1 = [
          1,
          1,
          1,
          1
        ];