######################################## 
 
#! /usr/bin/perl 
use strict; 
use warnings; 
 
######################################## 
 
my $tree = { 
	a => { 
		b => { 
			d => { }, 
			e => { } 
		}, 
		c => { 
			b => { 
				d => { }, 
				e => { } 
			} 
		} 
	} 
}; 
 
my $input = 'e'; 
 
######################################## 
 
my $data = process($tree); 
 
foreach (keys %$data) { 
	print reverse($_) . "\n" if ($_ =~ /$input$/); 
} 
 
######################################## 
 
sub process 
{ 
	my $ref        = shift || die "Tree required.\n"; 
	my $key_string = shift || ''; 
	my $data       = shift || { }; 
 
	foreach my $key (keys %$ref) 
	{ 
		my $next_ref              = $ref->{$key}; 
		my $next_key_string       = $key_string . ',' . $key;  
		$data->{$next_key_string} = undef; 
		 
		process($next_ref, $next_key_string, $data); 
	} 
 
	return $data;	 
} 
 
########################################