for ( @lines0 ) {
   my ( $hrs,$mins,$sec ) = split( /:/, pop( split /\s+/ ));
   $totalsec += ...
}