[firewheel ~]$ perl
my @list = (1 .. 4);
print STDOUT @list;