'substr_loop2' => sub
{
  my @arr;
  my $s = $str;
  push @arr, substr $s, 0, 8, '' while $s;
},