use Data::Dumper;
...
# after some assignment like
    $metrics{$product}{$date} = $day;
    print STDERR Dumper \%metrics;
    $metrics{$product}{$date}{$hour}{$user} = $val;
    print STDERR Dumper \%metrics;