À moins que vous ayez besoin de ces variables supplémentaires plus tard, vous n'avez pas besoin de les créer :
imprimer la grandeur scalaire (@$row), « \ n » ;
Si la variable de $size est nécessaire plus tard, vous pourriez faire ceci :
mon $size = @$row ;
copie $size, « \ n » ;