my $i = 1;
for my $time(sort {$a<=>$b} keys %$Signal_ref)
{
	print"Stimestamp_"."$i : $time\n";
	
	$i++;
	for my $msg(sort keys %{$Signal_ref{$time}})
	{
		print"my signal: $msg\n";
		#print"$Signal_ref{$time}\n";
	}
	
	print "\n";
}