十周くらい遅い、進捗どうですか。

test.pl

use strict;
use warnings;
use utf8 ;
binmode(STDOUT, ":utf8");
local $" = '' ;

my @words = qw( 進捗 どう です か ) ;
my @cache = ('')x4;
while ( 1 ){
    print my $str = $words[ int rand @words ]  ;
    push @cache, $str ;
    last if "@words" eq "@cache[-4,-3,-2,-1]"  ;
}
printf "???\n%d文字で煽られました\n", length "@cache" ;

進捗かかです進捗どうかですかかですかどうどうかですどう進捗ですかです進捗ですです進捗かかかどうですですですどうです進捗進捗どうですか???
66文字で煽られました

独り言

編集リクエストへの感謝の表明とかって、どーすればいいんでしょう、、、
言わば私信だから、コメント欄に@IDで書くのも変だし、、、