Interesting to note these can be enumerated by concatenating the zero-padded 2-digit fields, i.e.

$a=sprintf "%02d%02d%02d",$_[0]%4,(2+$_[0])%40%4,$_[0];
[download]

then

for(1..100){$a+=$_%10?400:36400;}
[download]

In all my attempts so far though the list representation is more compact since it's verbose to set up and format the string. Thought it was cool though, will give it more thought.