my $seconds = sprintf( "%02.3f", ( ( $sectime - ( $hours * 3600 ) ) - ( $minutes * 60 )) );

##</code><code>##

my ( $hours, $minutes, $seconds ) = ( split /:/, $time )[ -3, -2, -1 ];