for((split//,$t)){
  my $l = (split //,$y)[$c];
  my $s = join '', @$l;
  my $p = index($s,$_);
  $o   .= $p >= 0 ? $a[$p] : $_;
  $c   += $c < $k-1 ? 1 : -$k+1
}