Select Code to Download

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