use strict;
use warnings;
use feature qw/say/;        # say関数を利用可能にする

use utf8;                   # スクリプトで直接日本語を扱う時に記述
use Encode qw/encode/;      # 日本語表示する時に利用
use List::Util qw/shuffle/; # 配列をシャッフルするshuffle関数を利用

my @kami;   # 上の句を入れる配列
my @naka;   # 中の句を入れる配列
my @simo;   # 下の句を入れる配列

# __DATA__セクションから1行ずつもってくる
for my $line (<DATA>) {

    chomp $line;    # 末尾にある改行コードを削除する

    # 俳句を空白を目印に分割し、それぞれ
    # 上の句、中の句、下の句に分割する
    my ( $kami, $naka, $simo ) = split /\s+/, $line;

    # 用意した配列に追加する
    push @kami, $kami;
    push @naka, $naka;
    push @simo, $simo;
}

# shuffule関数で配列の中をシャッフルする
@kami = shuffle @kami;
@naka = shuffle @naka;
@simo = shuffle @simo;

# それぞれの配列の最初の要素をjoinでつなげる
my $haiku = join '　', ( $kami[0], $naka[0], $simo[0] );

# 表示する
say encode( 'utf8', $haiku );

# # 上の句、中の句、下の句が同じ数取れているか、確認のテスト
# if (scalar @kami == scalar @naka && scalar @naka == scalar @simo){
#     say 'test ok'
# }


# 第31回サラリーマン川柳　ベスト11-100｜サラリーマン川柳｜第一生命保険株式会社
# https://event.dai-ichi-life.co.jp/company/senryu/archive/31-11-100.html
__DATA__
言ったけど　だれに言ったか　わからない
何事も　妻ファーストで　うまくいく
体重計　上る勇気と　見る勇気
記憶にない　夫のどこに　ほれたのか
老後にと　米寿の父が　貯金する
新人に　メールで指示して　返事は「りょ」
減量の　決意はいつも　満腹時
汗だくは　イケメンだけが　許される
ウォーキング　秋に始めて　冬終わる
社内エコ　無駄を無くせと　配る紙
１日の　嫁との会話は　９秒台
上司にも　部下にも言えない　「ちがうだろ」
人減らし　「定時であがれ　結果出せ」
父さんの　苦労知ってる　靴の底
ヨガマット　いつしか昼寝の　敷き布団
間違えた！　上司へライン　「愛してる」
パパ来てよ　必要だったの　指紋だけ
妻いない　この日は朝から　プレミアム
小腹すき　ダンナに言えば　小腹どこ？
封筒の　厚みでわかる　再検査
飲み会で　上司の隣　ゆずりあう
朝一で　嫌いな上司の　予定見る
ＡＩに　翻訳させたい　嫁の機嫌
減塩の　メニュー頼んで　塩かける
俺ん家も　長期政権　嫁一強
嫁からの 　返事はいつも　既読だけ
若作り　検診結果は　年相応
禁煙し　それでも家で　煙たがれ
売り言葉　買って二倍に　返す妻
正直で　忖度なしの　体重計
お腹出た？　「内部留保」だ　気にするな
ヨーイドン　気持ち走るも　足は出ず
改善を　提案すると　業務増え
ランニング　ゴールは近所の　居酒屋へ
定年後　妻のトリセツ　子に習い
保存先　いつもどこかへ　かくれんぼ
変わったね　太ったねとは　言い切れず
天職と　言って転職　繰り返す
断った　上司と酒場で　鉢合わせ
今どきは　シャープと言わず　ハッシュタグ
ままごとも　パパが買い物　行かされる
玩具屋で　孫に隠れて　値札見る
年ごとに　スーツと妻が　キツクなる
孫に聞く　将来の夢　ユーチューバー
ＡＩが　俺の引退　早めそう
インスタに　映えます冷めます　嫁の飯
家族ライン　父のコメント　既読無し
ふるさとへ　納税だけが　帰省する
薄さでは　スマホに負けぬ　わがサイフ
空き缶日　他の缶見て　格差知る
静かだね　部長がいないと　プレミアム
都合よく　「若手」「中堅」　使われて
ブログ見て　部下の本音を　家で知る
辞めますも　ＳＮＳで　済ます部下
旦那への　家事に一言　ちがうだろー
サプリやめ　アプリで変身　妻の画像
近頃の　写真は真実　写さない
効率化　提案するたび　人が減る　
人生が　１００年となり　大慌て
ＡＩよ　俺の上司の　指示わかる？
本業は　会社に隠れて　ユーチューバー
遅れても　はっきり寝坊と　言う新人
制度より　働き方は　風土から
格安は　スマホと父の　お小遣い
インスタで　イイネ！とるため　食べ歩き
業績は　いいと聞くのに　感じない
プレミアム　おかげで木曜　残業だ
ラインから　絵文字が消えた　夫婦仲
セルフレジ　きかい相手に　あたま下げ
相談は　上司先輩　よりネット
テレワーク　在宅勤務は　妻がＮＯ
見栄を張り　現実を知る　試着室
料理出て　写真撮るまで　待てをする
IoT　なんの表情？　このマーク
胃袋へ　証拠隠滅　パパの分
忖度し　娘と別に　洗濯し
一万歩　足りないからと　次の店
父さんの　下着どうして　排除する
課長さん　たまには部下にも　忖度を
週始め　やる気を消し去る　メール数
ＡＩが　オレのレポート　見て笑う
我が秘密　変換予測が　喋ってた
履歴書に　インスタ映えの　顔写真
試着室　格闘中に　声かかる
上司より　フォロワー数の　多い部下
出したパス　誰も取らない　会議室
テレワーク　家ではかどる　妻しぶる
後輩が　心開くの　ＬＩＮＥだけ
飲み会に　部下を誘って　10連敗
昼休み　「いいね！」求めて　洒落た店