my %time;
@time{ qw(sec min hour ...) } = localtime(time);

##</code><code>##

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