Perl/펄] 배열에 다른 배열 추가/합치기/병합 함수; Merge Array

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


  my @a = qw( 자장면 탕수육 짬뽕 우동 물만두 );
  my @b = qw( 1000 2000 3000 4000 5000 );


  ###################################################
  # 배열의 끝에, 다른 배열 추가하여 합치기

  push @a, @b;

  print "$_ " foreach(@a);
  # 출력 결과:
  # 자장면 탕수육 짬뽕 우동 물만두 1000 2000 3000 4000 5000




  ###################################################
  print "\n\n\n\n문자열이 아니라, 정말로 배열인지 다시 확인\n\n";

  for (my $i = 0; $i <= $#a; $i++) {
    print "\$a[$i] = $a[$i]\n";
  }

=pod
출력 결과:

$a[0] = 자장면
$a[1] = 탕수육
$a[2] = 짬뽕
$a[3] = 우동
$a[4] = 물만두
$a[5] = 1000
$a[6] = 2000
$a[7] = 3000
$a[8] = 4000
$a[9] = 5000

배열 맞습니다.
=cut