use strict;
use Data::Dumper;

my @time_ary = localtime(time);
print Dumper(\@time_ary);