Select Code to Download

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

my $ref2 = 'parent_ref';

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