C:\test>perl -le"@a=1..10; print for @a"