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