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