sub findcd {
    my $someref = shift;
    my $type = ref($someref);
    if( $type eq "" ) {
	# do nothing for non-references
    } elsif( $type eq "ARRAY" ) {
	foreach my $elem (@{$someref}) {
	    findcd( $elem );
	}
    } elsif ($type eq "HASH" ) {
	foreach my $elem (keys %{$someref}) {
	    print "cd: $$someref{$elem}\n" if $elem eq "cd";
	    findcd( $$someref{$elem} );
	}
    } else {
	warn "Cannot deal with $type.\n";
    }
}

findcd( $p );