$d = ( @a = 1, 2, 3 );
print "$d\n";
print "@a\n";