Perlという魔法のレガシー言語

# 以下のリストを定義
@list = qw(
		fred
		betty
		barney
		dino
		wilma
		pebbles
		bamm-bamm
	);

# この記述は驚くけれど、@listの中身がこれだけで順番にprintされる
for(@list) {
	print $_ . "\n";
}

# listの参照を得ておく
$ref_list = \@list;

for($i = 0; $i < @list; ++$i) {
	$$ref_list[$i] = $i;	
}

# 配列の参照に対して値を上書いたので、中身が書き換わっている
for(@list) {
	print $_ . "\n";
}