for my $i ( 0 .. $#{ $self->{ keys } } ) {
	my $id = $self->{ keys }->[ $i ];
	# ...
}