$wml = defined(%stores) ? (join "
\n",map("$stores{$_}->{'store_t_address'}" , keys %stores) ):"Pas de résultat

" ; ##

##

if (defined(%stores)) {
  my @param = map("$stores{$_}->{'store_t_address'}" , keys %stores)
  $wml = join "
\n", @param;
} else {
  $wml = "Pas de résultat

";
}