引用就是指針，Perl 引用是一個標量類型可以指向變數、陣列、哈希表（也叫關聯數組）甚至子程序，可以應用在程式的任何地方。
建立引用
定義變數的時候，在變數名稱前面加個，就得到了這個變數的一個引用，例如:
$scalarref = $foo; # 標量變數引用$arrayref = @ARGV; # 列表的引用$hashref = %ENV; # 哈希的引用$coderef = &handler; # 子程序引用$globref = *foo ; # GLOB句柄引用
在數組中我們可以用匿名數組引用，使用[] 定義：
$aref= [ 1,"foo",undef,13 ];
匿名數組的元素仍然可以是匿名數組，所以我們可以用這個方法建構數組的數組，可以建構任意維度的數組。
my $aref = [ [1, 2, 3], [4, 5, 6], [7, 8, 9],]
在雜湊中我們可以用匿名雜湊引用，使用{} 定義：
$href= { APR =>4, AUG =>8 };我們也可以建立一個沒有子程式名稱的匿名子程式參考:
$coderef = sub { print "Codercto!n" };取消引用
取消引用可以根據不同的類型使用$, @ 或% 來取消，實例如下：
實例
#!/usr/bin/perl $var = 10 ; # $r 引用$var 標量$r = $var ; # 輸出本地儲存的$r 的變數值print " $var為: " , $ $r , " n " ; @var = ( 1 , 2 , 3 ) ; # $r 引用@var 數組$r = @var ; # 輸出本地儲存的$r 的變數值print " @var 為: " , @ $r , " n " ; %var = ( ' key1 ' => 10 , ' key2 ' => 20 ) ; # $r 引用%var 數組$r = %var ; # 輸出本地儲存的$r 的變數值print " %var 為: " , % $r , " n " ;執行以上實例執行結果為：
10 為: 101 2 3 為: 123%var 為: key110key220
如果你無法確定變數類型，你可以使用ref來判斷，傳回值清單如下，如果沒有以下的值回傳false：
SCALARARRAYHASHCODEGLOBREF
實例如下：
實例
#!/usr/bin/perl $var = 10 ; $r = $var ; print " r 的引用型別: " , ref ( $r ) , " n " ; @var = ( 1 , 2 , 3 ) ; $r = @var ; print " r 的引用型別: " , ref ( $r ) , " n " ; %var = ( ' key1 ' => 10 , ' key2 ' => 20 ) ; $r = %var ; print " r 的引用型別: " , ref ( $r ) , " n " ;執行以上實例執行結果為：
r 的參考類型: SCALARr 的參考類型: ARRAYr 的參考類型: HASH
循環引用
循環引用在兩個引用相互包含時出現。你需要小心使用，不然會導致記憶體洩露，如下實例：
實例
#!/usr/bin/perl my $foo = 100 ; $foo = $foo ; print " Value of foo is : " , $ $foo , " n " ;執行以上實例執行結果為：
Value of foo is : REF(0x9aae38)
引用函數
函數引用格式: &
呼叫引用函數格式: & + 建立的引用名。
實例如下：
實例
#!/usr/bin/perl # 函數定義sub PrintHash { my ( %hash ) = @_ ; foreach $item ( %hash ) { print "元素: $item n " ; } } %hash = ( ' name ' => ' codercto ' , ' age ' => 3 ) ; # 建立函數的引用$cref = & PrintHash ; # 使用引用呼叫函數& $cref ( %hash ) ;執行以上實例執行結果為：
元素: age元素: 3元素: name元素: codercto
