@a = 0 .. 19;;

$n = 4;;

say "$_ => $a[ $_ ]" for map $_ * $n, 0 .. ( $#a / $n );;
0 => 0
4 => 4
8 => 8
12 => 12
16 => 16