Perl Reference, 펄 레퍼런스, C언어의 포인터(Pointer)에 해당

#!/usr/bin/perl
use strict; use warnings;

  my @a = qw( 자장면 탕수육 물만두 팔보채 );

  my $r = \@a; # 배열 @a의 현재 메모리 주소 대입
  print $r, "\n";
  # 출력: ARRAY(0x1625d24)
  # 시스템 상황에 따라 다른 주소가 출력됨


  # 레퍼런스로 배열 전체에 접근 (Dereferencing)
  print join("/", @{$r}), "\n"; # 출력: 자장면/탕수육/물만두/팔보채
  # 또는
  print join(">>", @$r), "\n"; # 출력: 자장면>>탕수육>>물만두>>팔보채


  # 레퍼런스로 각 배열 요소에 접근하기
  print ${$r}[0], "\n"; # 원본 배열의 0번째 요소에 접근하여 출력
  # 자장면

  # 또는
  print $$r[0], "\n"; # 원본 배열의 0번째 요소에 접근하여 출력
  # 자장면


##############################################################


  # 위에서 정의한 배열 레퍼런스를
  # 함수 인수로 넘기기 (Parameter Passing)
  print_array(@{$r});
  print "\n"; # 편의상 줄바꿈
  # 출력 결과: [자장면] [탕수육] [물만두] [팔보채]

  # 또는
  print_array2(\@a);
  print "\n"; # 편의상 줄바꿈
  # 출력 결과: <자장면> <탕수육> <물만두> <팔보채>



sub print_array {
  print "[$_] " foreach (@_);
}

sub print_array2 {
  my $temp = shift;
  print "<$_> " foreach (@{$temp});
}