my @abcd = (1,2,3);
print "@abcd" . "\n";
$abcd[0] = 4;
@abcd[1] = 5;
print "@abcd" . "\n";
$abcd[0] = (4, 5, 6);
@abcd[1] = (4, 5, 6);
print "@abcd" . "\n";
print @abcd . "\n";
__DATA__
1 2 3
4 5 3
6 4 3
3