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