Help for this page
use warnings; use strict; ... print "---\n"; my @a = ($x, $y . '!', $z);
--- fetched: y fetched: x fetched: z