Help for this page
while ( <DATA> ) { chomp; my ( $number, $time ) = m{ ... 1.4567 ,11:58:00rftft 1.4566 , 1.5555 ,11:43:00
1.456,11:00:00 1.457,11:00:01 1.456,11:58:00 1.555,11:43:00