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	HASH(0x900a1bc)