my %T; # Store all TIME fields in a single hash named "T"
@T{  qw(sec min hour mday mon year wday yday isdst) } =
      map({$_ < 10 ? '0' . $_ : ''.$_} localtime);
print qq($_\t:$T{$_}\n) for sort keys %T; 

$T{year}+=1900; 
print qq($T{sec}, $T{min},$T{hour}, $T{day});