my ($image, @texte) = @$smiley;
$image = lc $image;

foreach (@texte) {
    # tu was...
}