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

shows that @CurTime is a one element array which is why the timelocal does not seem to work.

In what way does perl's built in 'time' function not meet your needs?

perldoc -f time
[download]