my %valeur;
if(
    @values
    and defined $values[0]
    and 'ARRAY' eq ref $values[0]
    and defined $values[0][0]
    and 'HASH' eq ref $values[0][0]
) {
    %valeur = %{ $values[0][0] };
}

##</code><code>##

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