ouyou1

ouyou1

#!/usr/bin/env perl

use strict;
use warnings;

my @words = ('肉','イカ','ラッパ','カニ','クジラ');
my @shiritori;
$shiritori[0] = $words[1];
$shiritori[1] = $words[3];
$shiritori[2] = $words[0];
$shiritori[3] = $words[4];
$shiritori[4] = $words[2];


# 解答例１
for my $str (@shiritori){
  print $str;
  print "->" if $str ne $shiritori[4];
}
print "\n";

# 解答例２
print join '->', @shiritori;
print "\n";