my @time = (Mon,Mar,3,12:24:05,2012);
if ($time[2] < 10 {
  $time[2] = "0$time[2]";
}