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);

##</code><code>##