use Time::Local;
my $epoch = timelocal(@values[2,1,0],1,1,1970);