Tied-что-нибудь для автоудаления из списка по принципу ON DELETE CASCADE

use Scalar::Util qw/weaken/;

my $h={split //,q(abcdefghijklmn)};
my $l=[map \$h->{$_}, keys $h];
weaken($_) for(@$l);

my $index = Index->new();
my $l; $l=[map { my $i = $index->inc(); on_destroy($h->{$_}, sub { splice @$l, $index->withdraw($i), 1 }); \$h->{$_} } keys $h];

package Index;

sub inc {
# возврат следующего индекса
# и также складываем его во внутреннюю переменную - массив
# дабы сохранить верность индексов после удаления элементов
}

sub withdraw {
# возвращает правильный индекс по переданному из внутреннего массива
# и уменьшает в нем все элементы правее на 1
# что и делает возвращаемый индекс правильным 
}

use strict;
use Variable::Magic qw/wizard cast/;
use Scalar::Util 'weaken';
use Data::Dumper;

my %h = qw(a 1 b 2 c 3);

my $a = make_dependent_array(\%h);
print Dumper $a;

for (qw/b a c/) {
	print "deliting ", delete $h{$_}, "\n";
	print Dumper $a;
}

sub make_dependent_array {
	my $hash = shift;
	
	my @array;
	my $index = Index->new;
	
	for (values %h) {
		my $i = $index->inc();
		$array[$i] = \$_;
		weaken $array[$i];
		
		cast $_, wizard(free => sub {
			splice @array, $index->withdraw($i), 1;
		});
	}
	
	\@array;
}

package Index;

sub new {
	bless {
		indexes => [],
		i       => 0,
	}, shift;
}

sub inc {
	my $self = shift;
	
	my $i = $self->{i}++;
	push @{$self->{indexes}}, $i;
	$i;
}

sub withdraw {
	my ($self, $i) = @_;
	
	my $indexes = $self->{indexes};
	for (my $x=$i+1; $x<@$indexes; $x++) {
		$indexes->[$x]--;
	}
	
	$indexes->[$i];
}