1 2 3 4 5 6 7 8 9 10 11 12 13
#!/bin/perl { my @a = (1, 2, 3, 4); my @b = (5, 6, 7, 8); my @c = (\@a, \@b); my @d = (9, 10); $c[2] = \@d; print $c[2][1] . "\n"; }
1
10