use Data::Diver 'Dive';
use Scalar::Does 'does';

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