perl -MList::MoreUtils -E 'my %stuff=(otherinfo=>"this and that",
     dateinfo=>{List::MoreUtils::zip 
     @{[qw|sec min hour mday mon year wday yday isdst|]}
      ,@{[localtime(time)]}
     });
  say "sec=",$stuff{dateinfo}{sec},
      "  year=",$stuff{dateinfo}{year}'