my $string =
    join('-', $time[WEEKDAY] + 1, $time[MONTH] + 1, $time[DAY])
  . '_' .
    join(':', @time[HOUR, MINUTE, SECOND])
;