in reply to I find some strange on this code ? Sort the issue

Indeed, that is kind of a pitfall.
example from here: 
$name = reverse("gnat");        # SCALAR context, -> tang
@r    = reverse("gnat","tom");  # LIST context    -> ("tom", "gnat")

[download]

holli, regexed monk

In Section Seekers of Perl Wisdom