Made the changes recommanded by perl : changing some arrays to scalare variables.