Select Code to Download

use constant SECOND  => 0;
use constant MINUTE  => 1;
...
    $time[MINUTE]      . ':' .
    $time[SECOND]
;

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