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