my %valeur;
if ( my $want = Dive( \@values, qw/ 0 0 / ){
    %valeur = %$want;
}