foreach my $time ( sort {$a <=> $b} keys %{$Signal_ref})
{
   use Data::Dumper; 
   print "my signal at t = $time:\n";
   print Dumper $Signal_ref->{$time};
   ...
}