printf "%04s-%02s-%02s\n", map { @$a ? $_ + shift @$a : $_} (localtime,$a=[1900,1])[5,4,3];

##</code><code>##

(localtime,$a=[1900,1])

##</code><code>##

(localtime,$a=[1900,1])[5,4,3]

##</code><code>##

map { 
   @$a 
     ? $_ + shift @$a 
     : $_
} (localtime,$a=[1900,1])[5,4,3];