sub untaint {
    my (@refs) = @_;
    my $cnt++;
    foreach my $RvSv (@refs) {
        ${$RvSv} =~ m/^.*$/;
        ${$RvSv} = $1;
        $cnt++;
    }
    return($cnt);
}

## use as
$untained_count = untaint(\$a,\$b);