foreach my $k (keys %data){
    print "$k:\n";
    print "  $_\n" for (values %{$data{$k}});
}