my @a;
@a[2..5] = (2)x4;

##</code><code>##

@a[2..5] = map 2, 2..5;

##</code><code>##

$a[$_] = 2 for 2..5;