参照

#!/usr/bin/perl

sub inc{
  my $b=$_[0];
  $b++;
}

$a=1;
inc($a);
print"$a\n";   #結果は1

#!/usr/bin/perl

sub inc{
  my $b=$_[0];   #$bは、$aへの参照
  $$b++;         #参照に$をつけるとスカラー変数の中身
}

$a=1;
inc(\$a);      # \をつけると参照
print"$a\n";   #結果は2

#!/usr/bin/perl

$a=['A','B','C','D'];
#$aには、無名配列への参照が代入される

print"$$a[0]\n";    #結果はA
print"$a->[1]\n";   #$$a[1]と同じ意味。結果はB