print $out "vettore1\n";  # bad

print $out "vettore[1]\n; # good