$ perl -E '
> @arr = ( 0 ) x 5;
> $arr[ 3 ] = 7;
> say qq{Element $_: $arr[ $_ ]} for 0 .. $#arr;'
Element 0: 0
Element 1: 0
Element 2: 0
Element 3: 7
Element 4: 0
$