use strict;

my $Kine = "Hello, FLF12. Would you like to play FLF22?";
foreach my $row (["Dr. Falken", "a game"], ["Bobby Fischer", "some chess"]) {
   my @Replacement = ();
   $Replacement[12]=$row->[0];
   $Replacement[22]=$row->[1];

   # Copy $Kine into temporary variable
   my $out = $Kine;
   $out =~ s/FLF(\d\d)/$Replacement[$1]/ge;
   print $out, "\n";
}