[ create a new paste ] login | about

Link: http://codepad.org/M27ynz57    [ raw code | output | fork ]

uskz - Perl, pasted on Aug 26:
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";
}


Output:
1
10


Create a new paste based on this one


Comments: