Select Code to Download

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

sub my_del($){
while (my $key = each (%hash)){
...


my_del('one');

KEY = three

...

Deleting one

my %dependencies =( 'one' => [], 'two' => [], 'three' => ['one'], 'fou
+r' => ['three','two'], 'five' => ['three']);

KEY = three
Going to call sub for three
...
KEY = two

Deleting one