my $hh1_char = sprintf("%02d", $hh1);
my $mm1_char = sprintf("%02d", $mm1);
my $ss1_char = sprintf("%02d", $ss1);