my $address = 5; refaddr( \$address ); my $new_address = \$address; $$new_address = $$new_address * 4; sigqueue( $$, &POSIX::SIGRTMIN, $address ); $thr->join(); print Dumper($address); my $smash = unsmash_sv( 0 + $address );