for (my $i=0; $i<5; $i++) {
  print "$i : first_string ref[$i] second_string parent_ref.ref[$i] third_string\n";
}

##</code><code>##

my $ref2 = 'parent_ref';

for (my $i=0; $i<5; $i++) {
  print "$i : first_string ref[$i] second_string $ref2.ref[$i] third_string\n";
}