perl -E 'my %stuff=(otherinfo=>"this and that",
     dateinfo=>{local %_,
     map({()} @_{qw|sec min hour mday mon year wday yday isdst|}
      =localtime(time)),
     %_});
  say "sec=",$stuff{dateinfo}{sec},
      "  year=",$stuff{dateinfo}{year}'

#-- Output --
#sec=2  year=114