pos($titles) = 0;

##</code><code>##

my $titles = 'abcde';

for (1..2) {
   pos($titles) = 0;
   for (1..3) {
      $titles =~ /./g or die;
      print(substr($titles, pos($titles)-1, 1), "\n");
   }
}

##</code><code>##

a
b
c
a
b
c