#!/usr/bin/perl
use strict;
use warnings;

my %hash = ( 'one' => 1, 'two' => 2, 'three' => 3, 'four' => 4, 'five' => 5);
my %dependencies =( 'one' => [], 'two' => [], 'three' => ['four'], 'four' => ['one','two'], 'five' => ['three']);

#sub my_del($){
sub my_del{
	#while (my $key = each (%hash)){
	foreach my $key (keys %hash){
		print "KEY = $key\n";
		
		foreach (@{ $dependencies{$key} }){
			if( $_ eq $_[0]){
				print"Going to call sub for $key\n";
				my_del($key);
			}
		}
		print"\n";
	}
	delete $hash{$_[0]};
	print "Deleting $_[0]\n";
}


my_del('one');