perl -e '@hi = (1,2,3), my $x = "hi"; print "@$x\n";'

##</code><code>##

1 2 3