It could be even in a more flexable way than wuth 1.1
You could read in the js-array and create perl-arrays from them :

foreach (grep /fidarray/ @linesP) {

   eval '\$'.$_;

}

then you could choose how to name your files by specifying index numbers for attributes

Frank van Gestel