Select Code to Download

sub Normaliza
{
...

        %Contornos = %{ clone(\%NewContornos) };
}

sub Diferencias
{
...
        # important: free memory
        undef $gpc_res;
}

sub Agujerear($)
{
...
        }
        say if DEBUG;
}