$foo{$x, $y, $z}
эквивалентно
$foo{join($;, $x, $y, $z)}
, где $;
по умолчанию - управляющий символ ("\x1C"
).
Не просто похоже ...
$ diff \
<( perl -MO=Concise,-exec -e'$foo{$x,$y,$z}' 2>&1 ) \
<( perl -MO=Concise,-exec -e'$foo{join($;,$x,$y,$z)}' 2>&1 ) \
&& echo identical
identical