[Perl] 레퍼런스

## 변수 레퍼런스
$v = 10;
$rv = $$v;

## 배열 레퍼런스
@aArr = ("one", "two", "three");
$raArr = \@aArr;
print "arr reference ".$$raArr[0]."\n"; ## eq expression 'print $$raArr[0]'
print "arr reference ".$raArr->[0]."\n"; ## eq expression 'print $$raArr[0]'

## 해쉬 레퍼런스
%hHash = ("one","1","two","2");
$rhHash = \%hHash;
print "hash reference ".$$rhHash{'one'}."\n";
print "hash reference ".$rhHash->{'one'}."\n";

서브 루틴에서 사용(Subroutines)
@aArray = (1,2,3);

printArray(\@aArray);

sub printArray
{
    my ($raArray) = @_;
    for ($i = 0; $i<3); $i++)
    {
       print "array[$i] = $raArray->[$i]\n";
    }
}