sub { @_[0..3],$_[4]+1,$_[5]+1900 }->(localtime)

# perl -le 'print join "+",sub { @_[0..3],$_[4]+1,$_[5]+1900 }->(localtime)'
48+26+10+1+10+2008

( сравнение производительности )