my $bbb=(($bb[2]*10)+$bb[3])*24*60*60+($bb[4]*10+$bb[5])*60*60+($bb[6]*10+$bb[7])*60+$bb[8]*10+$bb[9];

my $r=$bbb-$aaa;

my $cc1=$r%60;

my $cc11=($r-$cc1)/60;

my $cc2=$cc11%60;

my $cc21=($cc11-$cc2)/60;

my $cc3=$cc21%24;

my $z=" h$cc3 m$cc2 s$cc1 ";

}

foreach $ss  (@s)

{

 $ss =~ s/.**/*/g;

 $ss =~ s/0000 .*//g;

 $ss =~ s/0000600606//g;

 $ss =~ s/000050050//g;

 $ccc=$ss;

 my $z=substr($ss, 16, 10);

# теперь применим подпрограмму подсчета времени к переменной $ccc;

 my $res=&duration;

 $ss=~ s/$z/$res/g;

 $ss=~ s/h//g;

 $ss=~ s/m//g;

 $ss=~ s/s//g;

 my @f= split (/s+/, $ss);

 if ($f[4]) {

  $f[4] = 1;

 }

 my $z = $f[2]*60 + $f[3] + $f[4];

 my @g = split (//, $f[1]);

 if ($g[4]==0) {

 $g[4]="";

 }

 my @gg = ($g[2].$g[3], '.', $g[0].$g[1], '.', '04', " ", $g[4].$g[5], ':', $g[6].$g[7]);