@ary[1,100,500,1000] = (1) x 4;
# Iterate a sparse array
exists($ary[$_]) and print "$_\n" for 0 .. $#ary;
# Iterate a normal array
print "$_\n" for @ary