Select Code to Download

my %valeur;
if(
    @values
...
) {
    %valeur = %{ $values[0][0] };
}

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