Using localtime in scalar context and then splitting the scalar around spaces to get a list of (day, month, date, hour and year) values into the hash slice keys...

use strict;
use warnings;
my $time_var = localtime;

my %hash;
my @keys = qw(day month date hour year);
@hash{@keys}= split " ", $time_var;
print "$_->$hash{$_}\n" for keys(%hash);
[download]

In addition to all that is suggested, you may want to take a look at modules that can give you more control , like Time::localtime and Time::gmtime.