Select Code to Download

#!perl/bin/perl

...
@_ = \@array[2,0];

print @_;

#!perl/bin/perl

...

$ref[0][0] = "changed";
print "$ref[0][0] @array";

#!perl/bin/perl

...

${$ref[0]} = "changed";
print "${$ref[0]} @array";