sub puntato {
    my $n=reverse($_[0]);
    my $x='';
    while(length($n)>3) {
        $x=$x.substr($n,0,3).'.';
        $n=substr($n,3);
    }
    $x=reverse($x.$n);
    return($x);
}