I don’t know why people say Perl is hard to understand…

$=$/ and print join $”,reverse map scalar reverse,qw,foo bar baz,