tina@lugosi:~$ zsh
lugosi% perl -we'
@bla = qw(1 2 3 4 5 6 7 8 9);
package foo;
print "@main::bla";
'
lugosi%