use Data::Dumper;
my @CurTime=`date +%S,%M,%H,%d,%m,%Y`;
print Dumper \@CurTime;