for my $i ( 0 .. $self->max_index() ) {
	my ( $key, $value ) = $self->at( $i );
	# ...
}