#! /usr/bin/perl -w
use strict;
my @a=(1,2,3,4);
my @b=(5,6,7,8);
my @c=(@a, @b);
my @d=([1,2,3,4],[5,6,7,8]);
my @e=(\@a, \@b);

print "constructed with (\@a, \@b)\n";
foreach (@c)
{
        print "$_\t";
}
print "\nexplicit ([list],[list])\n";
foreach (@d)
{
        print "$_\t";
}
print "\nfinally (\\\@a, \\\@b)\n";
foreach (@e)
{
        print "$_\t";
}