my %date;
@date{ qw(day month year weekday) } = ( localtime(time) )[3..6];
$date{month}++;
$date{year} += 1900;