use Time::Local;
my $time = timelocal($sec,$min,$hour,$mday,$mon,$year);
my @time_array = localtime($time);