my %time;
my @pad = qw (sec min hour day month);
@time{ @pad } = localtime(time);