c:\@Work\Perl\monks>perl -wMstrict -le
"use constant DATE_MAGIC => (0, 1, 2, 7, 5);
 ;;
 my $dt = [ localtime ];
 my ($sec, $min, $hr, $yday, $yr) = @{ $dt }[ DATE_MAGIC ];
 print qq{yr $yr  yday $yday  hr $hr  min $min  sec $sec};
"
yr 114  yday 83  hr 12  min 22  sec 13