#!/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_pop_shift.pl)

# 次の処理をする array_pop_shift.pl を作りましょう。

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

# 2. 1の配列から 'Chris' を取り出し、出力してください。
print pop @array, "\n";    # Chris

# 3. 2の配列から 'Alice' を取り出し、出力してください。
print shift @array, "\n";    # Alice