$_ = [
        74, 116, 113, 113,
        28,  92, 104, 104,
       108,  95,  91, 103,
        20,  67,  87,  99,
        92,  15,  86,  78,
        79,  86,  79,  91,
        20,  19,  00,  73,
     ];

{vec(${print${$j},$/;$j},$i++
,8)=$$_[$i]+$i;$$_[$i]&&redo}
[download]

or

$_=[$j=#];
          101,  98, 102, 108, 28,
           69, 111, 108, 108, 23,
           87,  99,  99, 103, 90,
           86,  98,  15,  62, 82,
           94,  87,  10,  81, 73,
           74,  81,  74,  86, 15,
            2,  31,   6,  17,  0,
$i=$j-$j];

{vec($j,$i++,8)=$$_[$i]+$i;$$_[$i]&&redo||`$j`}
[download]