perl -MData::Dumper -e '$ref->{time()} = time; print Dumper $ref;' 
perl -MData::Dumper -e '%hash=( time => time ); print Dumper \%hash;'