Perlのサンプル

ref.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

#値渡し
my @array_a = (0, 1, 2);
my @array_b = @array_a;
$array_b[1] = 'a';
print Dumper(\@array_a);


#参照渡し
my @array_c = (0, 1, 2);
my $array_d = \@array_c;
$$array_d[1] = 'a';
print Dumper(\@array_c);