#!/usr/local/bin/perl 
 use strict   ; 
 use warnings ; 
 use diagnostics  ; 
 use Time::Piece; 
  
                         my $cleanfile  = 'SomeFile.txt'  ; 
                              
                            
open my $cleanfile_fh,'<',$cleanfile or die "Cannot open file !& \n"  ; 
                            
                           while (my $ln = <$cleanfile_fh>) 
                              { 
                                  chomp $ln ; 
                                { 
                               
                               my ($fst1,$sec2)  = split/,/, $ln  ; 
 
Data example: 
 
                                 01:21:48.955,01:21:48.953  
			         01:22:51.717,01:22:51.695  
			         01:23:50.533,01:23:50.532  
			         01:24:49.809,01:24:49.808  
			         01:26:29.369,01:25:52.421  
			         01:27:28.696,01:27:28.695  
			         01:29:03.565,01:28:30.367  
Thank you! 
Tester V