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

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

# 次の処理をする join.pl を作りましょう。
#     ("0120", "123", "XXX") という配列を作ってください。
#     1の配列をjoin関数で連結してください。 電話番号っぽいので、ハイフン ('-') でくっつけてみましょう。

my @array = qw(0120 123 XXX);
my $tel_number = join "-" , @array;

print "$tel_number\n"