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

##</code><code>##

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