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] };
}
Sorry for the late reply: Please have a look at http://perldoc.perl.org/perlop.html#Conditional-Operator . This operator is also known as triadic operator. It's a kind of if-then-else-operator.