ズンドコキヨシ with Perl

Perlでやってみた
※Use of uninitialized valueを出すという初歩的なミスをしていたのでついでに諸々修正しました…

Perl版

kiyoshi.pl

use strict;
use warnings;

sub kiyoshi {
  my @zd  = my ($z, $d) = ('ズン', 'ドコ');
  my $str = join('', (my @kys = ($z, $z, $z, $z, $d)));
  my $cnt = 0;
  my @word;

  while ( join('', @word) ne $str ) {
    shift @word if $#word >= $#kys;
    push @word, $zd[rand(@zd)];
    print $word[$#word];
    $cnt++;
  }
  print "キ・ヨ・シ！\n($cnt回ズンドコしました)\n";
  return;
}

kiyoshi();

もうちょっと上手くできないものか…