Perl code - 5 lines

Link:

Perl, pasted on Jun 21:

my @Nodes_Names =["a","b"];
my $c1;
my $c2;
($c1, $c2)= @Nodes_Names;
print $c1;

Output:

1	ARRAY(0xa0c81bc)