sub show_ref
{
    use Data::Dump 'pp';
    my $ref = shift;
    print "Reference to: ", ref($ref), "\n";
    print "Contents:     ",  pp($ref), "\n";
}

##</code><code>##

my $commissions = $sales->{tuesday}{jim};
show_ref($commissions);

##</code><code>##

14:11 >perl 879_SoPW.pl
Reference to: ARRAY
Contents:     [3, 8]

14:11 >

##</code><code>##

14:11 >perl 879_SoPW.pl
Reference to: HASH
Contents:     { jim => [3, 8], mary => [5, 5] }

14:25 >