Help for this page
foreach (@vettore) { print $_ . "\n"; }
# The following two lines check your code and # alert you to many common errors ... } close $in; close $out;