Remplacement avec increment

Hello,


J'ai ce genre de données :
{ 16, 10, 53, 36, 29 }
{ 16, 41, 45, 34,  1 }
{ 17, 11, 52, 37, 28 }
{ 17, 40, 44, 34,  0 }
...

J'essaye de le transformer en :

#declare f[0] = "16,10,53,36,29";
#declare f[1] = "16,41,45,34,1";
#declare f[2] = "17,11,52,37,28";
#declare f[3] = "17,40,44,34,0";
...

Mon souci vient de l'increment à mettre entre []
J'ai essayé plusieurs choses  dont celle la :

my $n = 0;
$data =~s/\{/#declare faces [$n++]/eg;

qui m'a l'air correcte... mais je récupere cette erreur :
Use of uninitialized value in substitution iterator in...

Je sèche un peu. Peut être une idée de quelqu'in ici ?
Merci




--
kurtz le pirate
compagnie de la banquise