#!/usr/bin/env perl5

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'] );

my %requiredby;
for my $key (keys %dependencies) {
	push @{$requiredby{$_}}, $key for @{$dependencies{$key}};
}

sub my_del {
	my $thiskey = shift;

	# Find all the keys that depend on us, and so have to go
	for my $del ( @{$requiredby{$thiskey}} ) {
		# Recurse and delete one key that requires us
		print "Going to call sub for $del\n";
		my_del($del);
	}

	# And finally get rid of us
	delete $hash{$thiskey};
	print "Deleting $thiskey\n";
}


my_del('one');