Help for this page
while($row = $sth->fetchrow_arrayref) { ... $Kine=~s/FLF(\d\d)/$Replacement[$1]/ge; #replace all of them items in $Kine