my %localtime = ();
@localtime{qw(sec min hour mday mon year wday yday isdst)} = localtime;
print Dumper \%localtime;


$VAR1 = {
          'wday' => 4,
          'hour' => 15,
          'min' => 58,
          'isdst' => 1,
          'sec' => 44,
          'mon' => 8,
          'yday' => 245,
          'mday' => 3,
          'year' => '115'
        };