Here the code

my $scan = $mas->scan;
     
    if ($scan)
    {
        my $res = $mas->scan_results;
        my $res_result = $res->{scan_results};
        foreach my $rec (@{$res_result}){
            foreach my $port (@{$rec->{ports}}) {

                if (($port->{port})) {
                    print "Adding [", $rec->{ip}.":".$port->{port},"]\
+n";
                }

            }
        }
    }
[download]