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

# Perl入学式 2018 第3回 練習問題
# https://github.com/perl-entrance-org/workshop-2018/blob/master/3rd/slide.md
# 練習問題(array_push_unshift.pl)

# 1. ('Alice', 'Bob', 'Chris') という配列を作ってください。
my @array = ( 'Alice', 'Bob', 'Chris' );

# 2. 1の配列の末尾に Diana を追加し、 ('Alice', 'Bob', 'Chris', 'Diana') という配列を作ってください。
push @array , 'Diana';

# 3. 2の処理に続けて、配列の最初に Eve を追加し、 ('Eve', 'Alice', 'Bob', 'Chris', 'Diana') という配列を作ってください。
unshift @array , 'Eve';

# 4. 3の配列をfor文で出力してみましょう。
for my $name (@array){
    print $name , "\n"
}

# Eve
# Alice
# Bob
# Chris
# Diana