foreach (@channels){
	         	$Channel=$_;
	         	if ($Line =~ m/^$_=/){
	         		 my @channelsSegmentsSplit=split(/=/,$Line);
	           		foreach (split(/\,/,$channelsSegmentsSplit[1])){
	           			print "Segment\n";
	           			print "$_ \n";
	         			push @{$channelsSegments[$Count]}, $_;
	         		}
	         	}
	         	elsif($Line =~ m/^($Channel)Time=/){
	         		my @channelsSegmentsTimeSplit=split(/=/,$Line);
	         		foreach (split(/\,/,$channelsSegmentsTimeSplit[1])){
	         			print "Time\n";
	           			print "$_ \n";
	         			push @{$channelsTime[$Count]}, $_;
	         		}
	         	}
	         	$Count++;
	         }
         }
     
   return (\@channels, \@channelsSegments, \@channelsTime, $readInterval);