sub untaint_ref 
{
    my $in = shift;

    $$in =~ /(.*)/;

    return $1;
}

my $val = 12345;
$val = untaint_ref(\$val);