$ 
$ cat -n print_hoh.pl
     1	#!/usr/bin/perl -w
     2	use strict;
     3	my ($result, $name, $activities, $value);
     4	
     5	# Subroutine section
     6	sub build_hoh {
     7	    ($name, $activities, $value) = @_;
     8	    $result->{$name}->{$activities} = $value;
     9	}
    10	
    11	sub print_hoh {
    12	    my @values = ();
    13	    my @names = sort keys %{$result};
    14	    my @activities = sort keys %{$result->{$names[0]}};
    15	    my $hdr_fmt = "%10s|%-6s|%-6s|%-6s|%-6s|\n";
    16	    my $row_fmt = "%-10s|%6d|%6d|%6d|%6d|\n";
    17	    printf($hdr_fmt, "", @names);
    18	    foreach my $act (@activities) {
    19	        foreach my $name (@names) {
    20	            push(@values, $result->{$name}->{$act});
    21	        }
    22	        printf($row_fmt, $act, @values);
    23	        @values = ();
    24	    }
    25	}
    26	
    27	# Main section
    28	build_hoh("robert", "running", 10);
    29	build_hoh("robert", "eating", 20);
    30	build_hoh("robert", "sleeping", 9);
    31	build_hoh("robert", "drinking", 0);
    32	build_hoh("robert", "work", 10);
    33	
    34	build_hoh("tom", "running", 8);
    35	build_hoh("tom", "eating", 5);
    36	build_hoh("tom", "sleeping", 9);
    37	build_hoh("tom", "drinking", 1);
    38	build_hoh("tom", "work", 10);
    39	
    40	build_hoh("cat", "running", 3);
    41	build_hoh("cat", "eating", 3);
    42	build_hoh("cat", "sleeping", 8);
    43	build_hoh("cat", "drinking", 2);
    44	build_hoh("cat", "work", 9);
    45	
    46	build_hoh("peter", "running", 3);
    47	build_hoh("peter", "eating", 2);
    48	build_hoh("peter", "sleeping", 10);
    49	build_hoh("peter", "drinking", 0);
    50	build_hoh("peter", "work", 10);
    51	
    52	print_hoh;
    53	
$ 
$ perl print_hoh.pl
          |cat   |peter |robert|tom   |
drinking  |     2|     0|     0|     1|
eating    |     3|     2|    20|     5|
running   |     3|     3|    10|     8|
sleeping  |     8|    10|     9|     9|
work      |     9|    10|    10|    10|
$ 
$