perl -e '@{q(-e)} = qw(Hello World); print "$0: @$0\n"'